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Einführung in das Programmieren 
mit FORTH 




1 Einführung in das Programmieren mit FORTH 


In diesem Buch geht es um die Programmiersprache FORTH und darum, 
-ie man in dieser äußerst vielseitigen Sprache Programme schrei 
ben kann. Wir machen Sie zuerst mit den grundlegenden Konzepten 
ier Programmierung vertraut, die Sie dann zu sehr leistungsf ähi 
gen komplexen Prozeduren auszubauen lernen. 

Fie modernen elektronischen Computer verfügen über erstaunliche 
Fähigkeiten. In ein paar Sekunden oder Minuten können sie Aufga 
ben erledigen, deren manuelle Bewältigung ansonsten Monate oder 
Fahre in Anspruch nehmen würde. Computer steuern industrielle 
Fertigungsprozesse oder überwachen medizinische Geräte in Not- 
fallstationen. Dennoch: Der Computer kann nicht denken! Er kann 

-ediglich eine Folge von genauen Anweisungen befolgen, die den 
kamen Programm trägt. In diesem Buch stellen wir eine Sprache - 
benannt FORTH - dar, mit der man Computer programmieren kann. Im 
ersten Kapitel befassen wir uns dazu mit ein paar grundlegenden 
Fakten über Computer und vergleichen außerdem FORTH mit anderen 
Programmiersprachen. Das Kapitel unternimmt aber auch bereits die 
ersten "Programmierschritte" mit Ihnen, so daß Sie bereits Ihr 
erstes Programm schreiben können. 


1 . 1 Grundlegendes über Computer 


Zs.a wir uns dem Programmieren in FORTH zuwenden können, sollten 
-~r uns in groben Zügen mit dem Aufbau eines Computers vertraut 
rachen. Zwar beziehen sich unsere Ausführungen hauptsächlich auf 
hikro- oder Personal Computer (das sind Computer, die auf einem 
sog. "Mikroprozessor" basieren), im Prinzip entspricht aber deren 
Aufbau auch dem der wesentlich teureren (und leistungsstärkeren) 
I-roßcomputer . 

1=3 Herzstück eines Mikrocomputers ist die sog. CPU (Abkürzung 
für "central Processing unit", wörtlich "Zentrale Verarbeitungs- 
einheit" oder "Zentraleinheit") . Die CPU führt alle logischen und 
arithmetischen Operationen aus, die der Computer beherrscht. Sie 
<ar.n z.B. zwei Zahlen zueinander addieren oder sie daraufhin un- 
lersuchen, ob sie gleich sind. Außerdem verfügen Computer über 
einen Hauptspeicher; darin werden die Programme gespeichert, die 
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die Funktionsweise des Rechners steuern, aber auch die Daten, mit 
denen diese Programme arbeiten. 


Der Hauptspeicher kann die CPU äußerst schnell mit Daten versor 
gen, oftmals in Bruchteilen einer Mikrosekunde (Millionstelsekun 
de) . Diese Art von Speicher ist jedoch verhältnismäßig teuer; 
außerdem können die meisten Mikrocomputer nur mit einem begrenz 
ten Umfang an Hauptspeicher arbeiten (bei 8-Bit-Mikrocomputern 
sind das in der Regel Speichergrößen von 64K) . Deshalb kann man 
den Hauptspeicher nicht zur Speicherung größerer Datenmengen be 
nutzen. Es kann z.B. sein, daß Sie über mehrere Programme verfü 
gen, die Sie bei verschiedenen Gelegenheiten einsetzen wollen. Es 
wäre nun äußerst unökonomisch, all diese Programme stets im 
Hauptspeicher aufzubewahren, da dieser dadurch sehr bald voll wä 
re. Außerdem müßten Sie Ihren Computer stets eingeschaltet las 
sen, denn der Inhalt des Hauptspeichers geht verloren, wenn keine 
Spannung mehr anliegt. (Einige Computer verfügen über Speicher, 
die Informationen auch dann noch behalten können, wenn der Compu 
ter ausgeschaltet ist. Leider ist diese nützliche Eigenheit bei 
den meisten Mikrocomputern nicht gegeben.) 

Ähnlich verhält es sich mit der Speicherung von Daten. Stellen 
Sie sich einmal eine Bank vor, die über 100000 Konten zu führen 
hat . Der Computer dieser Bank müßte über einen gigantischen 
Hauptspeicher verfügen, um alle Informationen über Kontobewegun 
gen speichern zu können. Schon aus finanziellen Gründen scheidet 
also diese Lösung aus. Deshalb bedient man sich bei der Speiche 
rung von Computerdaten magnetischer Speichermedien. Es ist 
möglich, auf Magnetband eine große Menge von Informationen zu 

speichern. Bei kleineren Computern findet man für diesen Zweck 
oft einen gewöhnlichen Kassettenrecorder. Ein einziges Band (bzw. 
Kassette) kann eine Menge von Programmen aufnehmen; wenn Sie ei 
nes dieser Programme laufen lassen wollen, dann lesen Sie es erst 
vom Band in den Hauptspeicher des Computers ein, von wo aus es 

der Computer dann ausführt. Andere Speichermedien, die man zusam 

men mit Mikrocomputern antrifft, sind Disketten oder Floppy disks 
und Festplatten (Hard disks) . Sie haben vor Kassettenspeichern 
den Vorteil eines wesentlich schnelleren Datenzugriffs. In letz 
ter Zeit sind auch die sog. Magnetblasenspeicher für Mikro 
Computer verfügbar geworden. 

Um überhaupt mit dem Computer etwas anfangen zu können, müssen 

wir in der Lage sein, ihm Programme und Daten einzugeben und uns 
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ne Ergebnisse seiner Berechnungen irgendwie anzusehen. Bei den 
eisten kleinen Computern dient ein Terminal für die Ein- und 
V; sgabe von Informationen. Zur Eingabe von Informationen bedient 
-'ich der Benutzer einer Tastatur, die der einer Schreibmaschine 
Lmelt . Die Ausgaben des Computers erscheinen auf dem Bildschirm, 
ähnlich einem gewöhnlichen Fernsehbildschirm (bei einigen der 

nlligeren Mikrocomputern handelt es sich sogar um einen Fernse- 
ier) . Manchmal ist auch noch ein Drucker an den Mikrocomputer an- 

reschlossen, so daß man sich die Ergebnisse von Berechnungen auch 

iusdrucken lassen kann (die Fachleute sprechen in diesem Zusam- 

"enhang von "Hardcopy") . 


1.2 Programmiersprachen 

Alle Informationen werden im Computer in Form von Zahlen gespei- 
ihert . Diese Zahlen bestehen lediglich aus den Ziffern 0 und 1; 
r . an nennt sie auch Binärzahlen. So ist z.B. die Folge 0110 eine 

2'lnärzahl, die für die gewöhnliche (Dezimal-) Zahl 6 steht. Sie 

müssen nichts über Binärzahlen wissen, um einen Computer in FORTH 
zu programmieren. Einer der Gründe für den Einsatz einer Program- 
mersprache wie FORTH ist es ja gerade, daß man dadurch mit dem 
Computer nicht mehr in der "Sprache" der Binärzahlen zu reden 

oraucht . 

Man kann zur Programmierung eines Computers auch die sogenannte 
Hasch ine nsprache verwenden. Die Befehle in dieser Sprache sind 
verhältnismäßig einfach; sie weisen z.B. den Computer an, zwei 

Zahlen zu addieren oder eine Zahl an einer bestimmten Stelle im 
Hauptspeicher abzuspeichern. Befehle in Maschinensprache bestehen 
aus langen Folgen von Nullen und Einsen. Deshalb ist die Arbeit 
mit diesen Sprachen äußerst umständlich und fehleranfällig. Schon 
eine einfache Multiplikationsaufgabe erfordert, daß der Program 
mierer eine lange Folge von Maschinenbefehlen (die nur aus den 
Ziffern 0 und 1 bestehen dürfen) hinschreibt. Um den Programmie 
rern das Leben zu erleichtern, hat man deshalb besondere Program 
me entwickelt, die einfachere und leichter zu verstehende Befehle 
(z.B. in Englisch) in die Sprache der Nullen und Einsen überfüh 
ren, die der Computer versteht. 

Es gibt eine ganze Menge solcher Programme, da es ja auch eine 
ganze Menge Programmiersprachen gibt. Dennoch lassen sich dabei 
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zwei Klassen unterscheiden. Da sind zum einen die sog. Assembler. 
Assemblerprogramme verstehen nur Befehle, die sehr eng an die Ma 
schinensprache angelehnt sind, für die Befehle jedoch nicht mehr 
ausschließlich 0 und 1, sondern sog. symbolische Ausdrücke ver 
wenden. Die Sprache, die ein solches Assemblerprogramm versteht, 
heißt auch einfach Assembler. Bei der Arbeit in Maschinensprache 
muß der Programmierer nicht nur ausschließlich Binärzahlen einge 
ben, er muß sich auch um die tatsächlichen Speicheradressen küm 
mern, an denen seine Programme stehen. Auch diese Arbeit er 
leichtert ihm der Assembler. Hier kann man sich mit Hilfe von 
symbolischen Ausdrücken (der sog. "Marken") auf Speicheradressen 
beziehen, ohne daß man weiß, wo genau sich diese Speicheradresse 
befindet. Trotz dieser Erleichterungen ist die Assemblersprache 
dennoch nichts anderes als eine etwas leichter zu handhabende 
Form von Maschinensprache. 

Die andere Klasse von Programmiersprachen, die wir oben erwähnt 
haben, sind die sog. höheren P rogrammiersprachen ■ Diese erleich 
tern die Arbeit des Programmierers beträchtlich, da sie Befehle 
in eine ganze Folge von Maschineninstruktionen übersetzen. So 
verfügen die meisten höheren Programmiersprachen über das Symbol 
"*”> um damit die Multiplikation auszudrücken. Der Computer kennt 
jedoch den Stern als Befehl nicht . Deshalb wird ein Stern in eine 
Folge (oftmals 100 und mehr) von Maschinenbefehlen übersetzt, die 
dafür sorgen, daß der Computer multipliziert. Mit den Details der 
Übersetzung des Sterns braucht sich der Programmierer nicht zu 
befassen. Um alle diesen lästigen Kleinkram kümmert sich die Pro 
grammiersprache selbst . 

Höhere Programmiersprachen sind also bequemer als Maschinen- oder 
Assemblersprachen, dafür sind sie aber auch etwas eingeschränk 
ter. Bei der Arbeit in Assembler oder Maschinensprache können Sie 
jeden der eingebauten Befehle einsetzen, die Ihr Computer ver 
steht. Sie haben dadurch die Möglichkeit, bei genauer Kenntnis 
der Arbeitsweise Ihres Computers möglichst viel aus ihm herauszu 
holen. Arbeiten Sie aber in einer höheren Programmiersprache, 
dann müssen Sie sich mit den Befehlen zufriedengeben, die darin 
enthalten sind. Die meisten höheren Programmiersprachen sind 

jedoch schon ziemlich flexibel und verfügen über ein umfangrei 
ches Befehlsrepertoire; außerdem kann man mit ihnen unendlich 
viel leichter umgehen als mit Assembler oder Maschinensprache. In 
diesem Buch stellen wir Ihnen eine Programmiersprache vor, die 
noch flexibler und "ausdrucksreicher" als die herkömmlichen höhe 
ren Programmiersprachen ist, nämlich FORTH! 
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1 . 3 FORTH und andere Programniersprachen 


FORTH ist nur eine von vielen Programmiersprachen, die auf Mikro 
Computern eingesetzt werden. Andere weit verbreitete Sprachen 
sind BASIC, FORTRAN, Pascal und, in etwas geringerem Umfang, 
COBOL. FORTH unterscheidet sich ganz wesentlich von all diesen 
genannten Sprachen. Am deutlichsten sieht man dies an einem 
Beispiel: Schreiben wir einmal ein Programm in BASIC und FORTH, 

das die beiden Zahlen 3 und 4 addiert und das Ergebnis (7) aus 
druckt. Da wir davon ausgehen, daß Sie noch über keine Program 
miererf ahrung verfügen, haben wir uns auf so ein simples Beispiel 
beschränkt. Das BASIC-Programm sieht folgendermaßen aus: 

10 A = 3 
20 B = 4 
30 C = A + B 

40 PRINT C (1-1) 


Hier nun das FORTH-Programm : 

3 4 + . (1-2) 


Schon an diesem einfachen Beispiel kann man einige Vorteile (und 
Nachteile) von FORTH erkennen. Das BASIC-Programm sieht ziemlich 
vertraut aus, da es ein bißchen an die Schularithmetik erinnert, 
-ährend das FORTH-Programm exotisch anmutet. Unbestritten ist das 
SCRTH- Programm jedoch wesentlich kürzer. Wenn Sie lange Program 
me schreiben wollen, dann werden Sie diese Knappheit zu schätzen 
•issen, da sie nicht soviel Schreibarbeit haben. Weil sie nicht 
so lang sind, benötigen FORTH-Programme aber auch weniger Spei- 
m.-.erplatz und laufen auch in den meisten Fällen schneller. Ande 
rerseits sind lange Programme oft "selbstdokumentierend". Wenn 
sie sauber geschrieben sind, dann erklären sich diese Programme 
selbst, und man kann durch bloßes Durchlesen dem Programm entneh 
men, wozu es dient und wie es seine Aufgabe erledigt. Wir werden 
aber sehen, daß man in ein FORTH-Programm Kommentare aufnehmen 
rd auch sie dadurch selbstdokumentierend machen kann. 
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Im letzten Abschnitt haben wir kurz erwähnt, daß Maschinen- oder 
Assemblersprachen flexibler als höhere Programmiersprachen sind. 
FORTH verfügt nun über einige Aspekte, die den Assembler- oder 
Maschinensprachen entsprechen und hat deshalb auch viel von ihrer 
Flexibilität. Diese Flexibilität erkauft man sich jedoch nicht 
auf Kosten der Handhabung. 

Bevor wir einige weitere Gesichtspunkte von FORTH erörtern kön 
nen, müssen wir uns mit einigen anderen wichtigen Prinzipien 
höherer Programmiersprachen vertraut machen. Meistens wird ein 
Programm in einer höheren Programmiersprache durch einen sog. 
Compiler in Maschinensprache übersetzt. Diesen Übersetzungsprozeß 
bezeichnet man deshalb auch als Compilierung. Nachdem wir das 
Programm geschrieben haben, übergeben wir es dem Compiler, und 
der Prozeß der Compilierung beginnt. Das Ergebnis des Compilers 
ist aber immmer noch kein lauffähiges Programm. Meistens gibt es 
noch eine Anzahl von Unterprogrammen, die erst mit dem eigentli 
chen Programm kombiniert werden müssen, um es zu vervollständi 
gen. So könnte Ihr Programm etwa eine Anzahl von Multiplikationen 
enthalten. Der Compiler schreibt nun nicht eine lange Folge von 
Maschineninstruktionen für jede Multiplikation in Ihrem Programm. 
Statt dessen weiß er, daß in einer sog. Bibliothek (Fachausdruck: 
"Library") ein Unterprogramm zu finden ist, das sich um die Mul 
tiplikation kümmert. Diese Programmbibliotheken werden zusammen 
mit dem Compiler vom Hersteller ausgeliefert . Nach der Compi 
lierung befinden sich in Ihrem Programm Befehle, die das Multi 
plikationsprogramm aus der Bibliothek auf rufen. Um das Programm 
zu vervollständigen, muß also erst noch das Multiplikationspro 
gramm aus der Bibliothek geholt und mit dem selbst geschriebenen 
Programm kombiniert werden. Diesen Prozeß bezeichnet man als 
Binden (Fachausdruck: Linken) . 


Compilieren und Linken nimmt beträchtliche Zeit in Anspruch. Auf 

kleineren Computern kann es schon passieren, daß das Compilieren 
und Linken eines mittleren Programms fünf Minuten und länger 
dauert, wenn Sie z.B. mit einer Sprache wie FORTRAN arbeiten. Er 
schwerend kommt hinzu, daß neue Programme meistens einige Fehler 

enthalten (Diese Fehler werden im Programmierer jargon Bugs, vom 
englischen "bug" = Wanze genannt.) Wenn Bugs in Ihrem Programm 
sind, müssen Sie Ihr Programm verbessern und es erneut compilie 
ren und linken lassen. Da leider die meisten Programme irgendwel 
che Bugs enthalten, geht einem diese fünfminütige Warterei ziem 
lieh schnell auf die Nerven! Sie können den ganzen Prozeß zwar 
etwas abkürzen, indem Sie Ihr Programm in mehrere kleine Unter- 
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crogramme aufteilen. Diese Programmteile oder Moduln können 
scnnell compiliert und, wenn sie fehlerfrei sind, in die Pro 
grammbibliothek mitauf genommen werden. Bei dieser Art Programm- 
Verwicklung muß immer nur das zuletzt entwickelte Modul compi- 
-rert und getestet werden, wodurch sich die Compilierzeit verrin 
gert . Immer noch müssen Sie aber zur Erstellung eines lauffähigen 
Programms die einzelnen Unterprogramme mit Hilfe des Linkers aus 
rer Bibliothek holen lassen. Deshalb ergeben sich nach wie vor 
:e: jedem Entwicklungsschritt mehrere Minuten Wartezeit. Einer 

rer großen Vorteile von FORTH besteht nun darin, daß jedes Pro 
gramm in sehr kleine Einzelschritte zerlegt werden kann, so daß 
:;e Compilationszeiten reduziert werden. Bedeutsamer aber ist, 
raß in FORTH der Prozeß des Linkens völlig wegfällt. Dadurch 
.ißt sich die Entwicklung eines Programms in FORTH wesentlich be- 
s rnleunigen. 

-■ff einigen Programmiersprachen wie z.B. BASIC ist das Problem 
rer Wartezeiten bei der Programmentwicklung anders gelöst; diese 
Irrachen werden nicht compiliert, sondern interpretiert. Man 
sc rieht deshalb in diesem Zusammenhang auch von einem Interpre- 
rer . Hier läuft der Programmierprozeß etwas anders ab. Wenn man 
sin Programm compiliert und linkt, dann erhält man als Ergebnis 
e-c. Maschinenprogramm. Sie lassen dieses Programm laufen, um die 
revünschten Daten zu erhalten. In einer interpretierten Sprache 
erhalten Sie niemals ein Maschinenprogramm. Statt dessen liest 
arr. anderes Programm, eben der Interpreter, Ihre Befehle durch 
_ri stößt entsprechende Sequenzen von Maschinenbefehlen an, die 
ias bewirken, was Sie haben wollen. Danach liest der Interpreter 
ren nächsten von Ihnen eingegebenen Befehl und führt ihn aus usw. 
Ir . rerpretersprachen führen Befehle also sofort aus, nachdem sie 
^.angegeben sind. So geht keine Zeit für Compilieren und Linken 
erloren . 

-er Nachteil dieses Verfahrens liegt darin, daß interpretierte 
Programme nur sehr langsam laufen, oft zehn- bis dreißigmal lang 
samer als ein compiliertes Programm. In einigen Fällen ist die 
Pcfgabenstellung für den Computer so einfach, daß dies für den 
Penutzer keinen Unterschied ausmacht. Ob er nun 0,01 oder 0,2 
lekunden wartet, ist ihm wohl egal. Andererseits ist der Unter 
schied zwischen einer Wartezeit von 10 Minuten und 30 Sekunden 
schon gravierend. Deshalb können interpretierte Programme proble- 
ätisch werden. BASIC bietet hier einen Ausweg: Man kann das 

Programm im Interpreter entwickeln und testen; sobald es fertig 
ist, übergibt man es einem speziellen BASIC-Compiler , der es in 
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eine schnellere compilierte Version überführt. Oft ist dies das 
bestmögliche Vorgehen. Die langsame Laufzeit der interpretierten 
BASIC-Programmme kann aber wiederum den Prozeß der Fehlersuche 
unerträglich verzögern. Einer der großen Schwachpunkte des inter 
pretierten BASIC^ist nämlich, daß der Programmierer keine Unter- 
programmme oder Moduln schreiben kann, wodurch eine modulare 
Programmentwicklung nicht mehr möglich ist. Stets muß für die 
Fehlersuche das gesamte Programm ablaufen. Dennoch kann man sa 
gen, daß der Vorteil interpretierter Sprachen darin liegt, daß 
Fehler sehr schnell lokalisiert und ausgebessert werden können, 
da die Programme sofort nach dem Eingeben ausgeführt werden. 

Die Sprache FORTH zeichnet sich dadurch aus, daß sie sowohl Merk 
male von Assemblersprachen als auch solche von höheren Sprachen 
aufweist. Wenn wir die Maschinensprache als die erste Ebene der 
Programmiersprache auffassen und höhere Sprachen sich auf der 
zweiten bzw. dritten Ebene befinden, dann ist FORTH eine Sprache 
der vierten Ebene. Daher kommt übrigens auch der Name FORTH. Es 
wurde von Charles H. Moore bei der Arbeit mit einem Computer der 
dritten Generation entwickelt. Seine neue Sprache war so mächtig, 
daß sie aus seinem Rechner einen Rechner der vierten Generation 
zu machen schien. Deshalb wollte Moore ihr den Namen FOURTH geben 
(vom Englischen "fourth": viertens oder Viertes) . Leider akzep 

tierte sein Computer aber keine Befehle, die mehr als fünf Buch 
staben enthielten; so entstand der Name FORTH. 

Wenn wir FORTH mit anderen Programmiersprachen vergleichen, so 
sehen wir, daß es für den Anfänger etwas schwieriger zu erlernen 
ist, und daß die Programme nicht unbedingt selbstdokumentierend 
sind. Andererseits kann man in FORTH aber sehr kurze Programme 
schreiben, deren Fehler man schnell entdeckt und korrigiert hat, 
da auch die Compilierzeit eines FORTH-Programms im Verhältnis zu 
anderen Programmiersprachen wesentlich reduziert ist. Die Lauf 
zeit von FORTH-Programmen ist wesentlich geringer als die ent 
sprechender interpretierter BASIC-Programme . Sie kann zwar etwas 
länger als die eines compilierten FORTRAN-Programms sein, dafür 
verkürzt sich aber die Compilier- und Linkzeit in FORTH. Einer 
der Hauptvorteile von FORTH ist außerdem, daß die Sprache erwei 
terbar ist: der Programmierer kann die Sprache selbst um neue 

Befehle erweitern. Darauf werden wir später noch eingehen. Ein 
weiterer Vorteil von FORTH im Vergleich mit anderen Program 
miersprachen ist es, daß FORTH wesentlich weniger Arbeitsspeicher 
benötigt. Gerade beim Einsatz mit kleinen Computern erweist sich 
dies als unschätzbarer Vorteil. 
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der Arbeit mit Großrechnern sind die Vorteile von FORTH nicht 
■unmittelbar deutlich. Diese Computer sind meist sehr schnell 
: verfügen über eine enorme Menge an Hauptspeicher. Die Zeit 
die Compilierung und das Linken eines Programms kann so klein 
, daß sie für den Programmierer gar nicht mehr ins Gewicht 

t. Ebenso zählt bei Großrechnern der verminderte Speicher 

; ■ zbedarf nicht so sehr. Es verbleibt aber immmer noch die 
■ - e iterbarkeit von FORTH als ein großer Vorteil. 


1.4 Zum Anfang: Der "Stack" - die Postf ix-Schreibweise 


wenden uns nun den grundlegenden Ideen von FORTH zu, damit 
Ihr erstes Programm schreiben können. Als erstes wollen wir 
: ■ einmal ein einfaches Programm schreiben, das die Zahlen 3 
4 addiert und das Ergebnis der Addition, 7, ausdruckt. In 
• T> : sieht das so aus: 

- - . (RETURN) (1-3) 


RETURN) wollen wir ausdrücken, daß Sie die Return-Taste auf 
-z Terminal betätigen sollen (und nicht etwa das Wort "return" 

- zhreiben) . Sehen wir uns nochmal etwas genauer an, wie man 

- : es Programm eingibt. Erst tippen wir die 3, gefolgt von einem 

Zeichen, dann die 4 und wieder ein Leerzeichen. Anschließend 

- n wir ein Pluszeichen ein, gefolgt von einem Leerzeichen, auf 

ein Punkt folgt . Nachdem wir all dies eingegeben haben, 

- ken wir die Return-Taste. Der Computer antwortert darauf mit 


(1-4) 


^rhten Sie die Leerzeichen. Die meisten Programmiersprachen 
rieren Leerzeichen. Anders bei FORTH: Hier dienen die Leer- 

-ir.en als Trennzeichen, d.h., sie dienen dazu, einzelne Befehle 
inander zu trennen. Deshalb merken Sie sich: Leerzeichen sind 

r CRTH sehr wichtig! 
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Natürlich müssen Sie, ehe Sie dieses Programm eingeben können, 
Ihr FORTH-System erst in den Computer bringen oder "laden". Wie 
Sie das machen, entnehmen Sie am besten Ihrem FORTH-Handbuch . 

Betrachten wir nun das Beispielprogramm (1-3) etwas genauer. 
Zuerst geben wir dem Computer die Zahlen 3 und 4 als Daten ein. 
Der Computer merkt sich diese Daten in einem ganz bestimmten 
Bereich des Arbeits- (oder Haupt-) Speichers, dem sog. Stack . Als 
nächstes trifft der Rechner auf das Pluszeichen. Dies stellt 
einen Befehl dar, der ihn dazu veranlaßt, die beiden Werte 3 und 
4 zu addieren, die soeben auf dem Stack gespeichert wurden. Dabei 
werden die 3 und die 4 vom Stack entfernt und statt dessen ihre 
Summe 7 dort abgelegt. Schließlich stößt der Computer auf den Be 
fehl (!)".". Am Anfang ist es etwas seltsam, daß ein Interpunk 

tionszeichen in einer Programmiersprache einen eigenen Befehl 
darstellt. In FORTH sorgt dieser Befehl aber dafür, daß das Eie 
ment, das sich gerade zuoberst im Stack befindet, auf dem Bild 

schirm (oder Drucker) ausgegeben wird. Wir werden diese Dinge 
noch eingehender darstellen. 

Sehen wir uns dazu den Stack einmal genauer an. Der Stack ist 

nichts anderes als eine Folge von Speicherstellen im Hauptspei 

eher des Computers. Eine bildliche Darstellung des Stacks sehen 
Sie in Abbildung 1-1. In 1-la ist der Stack noch leer: es sind 

bisher noch keine Informationen in den Rechner eingegeben und auf 
dem Stack gespeichert worden. 

Nehmen wir jetzt einmal an, wir lassen das Programm (1-3) ausfüh 
ren, weisen also den Computer an, die darin enthaltenen Befehle 
zu befolgen. Dazu "liest" sich der Computer das eingegebene Pro 
gramm von links nach rechts durch. Er trifft als erstes auf die 

Ziffer 3. Er weiß, daß dies ein Datenelement ist, das er auf der 

Stack speichern muß. Man sagt in diesem Zusammenhang im Program 
mierer jargon, daß die 3 auf den Stack g epusht , wird. Wie dies 
aussieht, können Sie der Abbildung 1 — lb entnehmen; hier ist die 2 
das oberste Element auf dem Stack. Jetzt aber weiter mit Programr 
(1-3) . Der Rechner trifft als nächstes auf die 4. Auch dies ist 
ein Datenelement und muß deshalb auf den Stack gepusht werden. 

Wir erhalten die Abbildung 1-lc. Beachten Sie, daß sich die Drei 
jetzt um einen Eintrag weiter "unten" befindet und die Vier das 
neue oberste Element auf dem Stack ist. Jedesmal, wenn nämlich 
Daten auf den Stack gepusht werden, wandern alle bereits vorhan 

denen Einträge um eine Position nach unten, und das neue Daten 
element wird zum neuen obersten Eintrag. 
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c) d) 


e) 


ABBILDUNG tiln: Beispiel für die Stack-Operationen. a) Ein 

-eerer Stack; b) die 3 wurde auf den Stack gepusht; c) Zustand 
-es Stacks, nachdem die 4 gepusht wurde; d) der Stack nach Aus 
führung von +; e) der Stack nach Ausführung des .-Befehls. 


Sie können jetzt verstehen, warum man den Stack auch als Stapel 
Speicher bezeichnet: Die Verhältnisse sind ähnlich wie bei einem 

Stapel von Essentabletts in einer Cafeteria oder Großküche. Wenn 
neue Tabletts auf den Stapel gelegt werden, dann wandern die al 
ten nach unten, und die neuen liegen auf dem Stapel obenauf. Ent 
nimmt jemand dem Stapel ein Tablett, so greift er auf das oberste 
und zieht es vom Stapel; ist das oberste Element weg, dann wan 
dern die anderen Tabletts "um eine Position nach oben". Das zuvor 
zweite Element wird jetzt oberstes Element des Stapels. 
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Fahren wir jetzt in unserem Programm (1-3) fort. Wir treffen als 

nächstes auf das Symbol +. Hierbei handelt es sich nicht um 
ein Datenelement. 

Das + ist vielmehr ein FORTH-Wort oder Befehl . FORTH kennt eine 
ganze Menge an Wörtern, die alle unterschiedliche Operationen 
auslösen. Wir wollen in diesem Text zur besseren Markierung der 
FORTH-Wörter Fettdruck verwenden. Das Wort + sorgt dafür, daß 
folgendes passiert: Zuerst werden die beiden obersten Elemente 
des Stacks entfernt. Für das Entfernen des obersten Elements hat 
sich eine eigene Terminologie eingebürgert; man spricht in diesem 
Zusammenhang von pop . Im FORTH- Jargon würde man also sagen, daß 

die beiden obersten Elemente vom Stack gepoppt werden. (Da immer 
nur das oberste Element des Stacks gepoppt werden kann, werden 
die Daten in der Reihenfolge "zuerst die Vier, dann die Drei" 

entfernt.) Als nächstes sorgt das Wort + dafür, daß die beiden 

Zahlen addiert werden. Dabei ergibt sich die Summe 7, die jetzt 
auf den Stack gepusht wird. Wir haben jetzt den Zustand in Abbil 
düng 1 — ld. Beachten Sie, daß die Vier und die Drei verschwunden 

sind und an ihrer Stelle jetzt der Wert 7 an oberster Stelle auf 
dem Stack steht . 

Schließlich stoßen wir in unserem Programm auf das Wort . ( . ) . 

Dieses Wort sorgt dafür, daß das oberste Element des Stacks ge 
poppt und auf Ihrem Terminal ausgegeben wird. Der Stack ist jetzt 
also leer, wie man an der Abbildung 1-le erkennen kann. Nachdem 
FORTH die Zahl 7 auf Ihrem Terminal ausgegeben hat, bringt es die 
Meldung "ok" und zeigt somit an, daß das Programm ohne Fehler 
abgearbeitet werden konnte und der Computer jetzt auf neue Befeh 
le von Ihnen wartet . 

Wir kennen nun die beiden grundlegenden Stack-Operationen, näm 
lieh das Abspeichern eines Datenelements als neues oberstes Eie 
ment auf dem Stack ("push") und das Entfernen des obersten Stack- 
Elements ("pop"), wobei alle verbleibenden Elemente um eine Posi 
tion weiterrücken. Die Stack-Operation bringt es mit sich, daß 
das zuerst auf dem Stack abgelegte Element das letzte ist, das 
von ihm entfernt werden kann. Man spricht in diesem Zusammenhang 
von dem Prinzip "Last In First Out" (übertragen etwa: als erstes 

rein, als letztes raus), das auch unter der Abkürzung LIFO be 
kannt ist. Ein anderer weit verbreiteter Name für den Stack lau 
tet daher auch LIFO-Speicher. Wenn ein Datenelement einmal mit 
tels Pop vom Stack entfernt worden ist, dann hat es der Computer 
"vergessen", d.h., es kann nicht mehr zu Berechnungen heran- 
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gezogen werden. In den folgenden Kapiteln werden wir deshalb noch 
Methoden kennenlernen, die es uns erlauben, ein Datenelement auf 
dem Stack mehrmals für Operationen heranzuziehen. 

Sicher ist Ihnen aufgefallen, daß wir in FORTH zuerst die Daten 
eingeben, und dann das Symbol, das diese Daten manipuliert, wie 
in "3 4 + .". Die Reihenfolge ist am Anfang sicher etwas un 
gewöhnlich. Es hat sich aber gezeigt, daß sich dahinter ein äu 
ßerst wirkungsvolles Prinzip für die Programmierung von Computern 
verbirgt; auch begegnet uns diese Darstellungsweise bei einigen 
programmierbaren Taschenrechnern. Man bezeichnet diese FORTH- 
typische Schreibweise als Postf ix-Notation oder umgekehrte polni- 
sche Notation. Letztere leitet sich von dem Erfinder dieser 
Schreibweise her, dem polnischen Logiker und Mathematiker J. 
Lukasiewicz. Die normale Schreibweise, die wir von der Schul 
arithmetik her kennen, trägt den Namen Infix-Notation. Einer der 
wichtigsten Vorteile der Postf ix-Notation besteht darin, daß man 
in ihr keine Klammern braucht . Aus der Schulalgebra wissen wir, 
daß in der Infix-Schreibweise häufig der Einsatz von Klammern 
nötig wird, um eindeutige Ausdrücke zu erzielen. Angenommen, wir 
wollen die Zahlen 3 und 5 addieren und dann das Ergebnis mit 10 
multiplizieren. In der üblichen Infix-Schreibweise drücken wir 
das so aus : 


( 3 + 5 ) * 10 


(1-5) 


Beachten Sie, daß wir hier gleich das Symbol * verwendet haben, 
um die Multiplikation auszudrücken, ebenso, wie es in FORTH und 
den meisten anderen Programmiersprachen üblich ist. Wir brauchen 
die Klammern in (1-5), denn ohne sie würden wir die 3 auf das 
Produkt aus 5 und 10 addieren, wodurch wir ein völlig anderes 
Ergebnis erhalten. 

Vergleichen wir jetzt einmal, wie man die Rechenaufgabe (1-5) in 
der Postfix-Notation hinschreibt. Wir machen uns das gleich an 
einem einfachen FORTH-Programm klar: 

10 3 5 + * . (RETURN) ( 1 - 6 ) 
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Wie Sie sehen, sind hier keine Klammern nötig. Die Arbeitsweise 
dieses Programms wollen wir uns wieder an Hand einer graphischen 
Darstellung des Stacks (ein "Stackdiagramm") vergegenwärtigen 
(vgl. Abb . 1-2) . In Abbildung l-2a sehen wir den Stack, nachdem 

die Zahlen 10, 3 und 5 in dieser Reihenfolge gepusht wurden. Als 

nächstes taucht das Operationssymbol + auf. Deswegen werden die 
obersten beiden Zahlen 5 und 3 mittels Pop entfernt und das Er 
gebnis der Addition, die 8, statt dessen auf dem Stack abgelegt. 
Das Ergebnis sehen Sie in der Abbildung l-2b. Als nächstes kommt 
das FORTH-Wort * an die Reihe. Dies poppt wiederum die zwei 
obersten Zahlen vom Stack und berechnet ihr Produkt. Das Ergebnis 
der Berechnung wird als neues oberstes Element auf den Stack ge 
pusht, und wir erhalten Abbildung l-2c. Wie Sie sehen können, 
haben die beiden Operationen jeweils zwei Zahlen vom Stack ge 
poppt und nur eine neue dafür abgelegt. Jedesmal, wenn eine Zahl 
mittels Push entfernt wurde, rücken die verbleibenden Daten auf 
dem Stack um eine Position nach oben (vgl. nochmal Abb. l-2b) . 
Schließlich kommt das FORTH-Wort . an die Reihe. Die oberste Zahl 
80 wird gepusht und auf dem Bildschirm angezeigt. Als Ergebnis 
der Operation finden wir einen leeren Stack vor (Abb. l-2d) . 
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ABBILDUNG 1—2: Der Stack bei der Ausführung des Programms (1-6) . 

a) Nachdem 10, 3 und 5 auf den .Stack gepusht wurden; b) der Stack 

nach Ausführung von +; c) der Stack nach Ausführung von *; d) der 

Stack nach Ausführung von 
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Bisher haben wir nur mit ganzen Zahlen (Fachausdruck : Integer ) ge 
rechnet. Integers sind solche Zahlen, die keine Nachkommastellen 
i_fweisen und deshalb nicht als Bruchzahlen geschrieben werden 
"Essen. Fürs erste werden wir uns in unseren Beispielprogrammen 
±_ch auf diesen Zahlentyp beschränken. 

Eieser Abschnitt hat zwei wichtige Konzepte der Programmierspra- 
:r.e FORTH eingeführt: den Stack und die Postf ix-Notation . Für das 

‘-rogrammieren in FORTH sind diese von zentraler Bedeutung. Außer- 
iem haben wir die FORTH-Wörter für die Addition, die Multiplika 
non und die Ausgabe von Daten kennengelernt. Sie sollten jetzt 
r-ereits in der Lage sein, mit diesem Wissen ausgerüstet einige 
FERTH-Programme zu schreiben. 


1.5 Wie läßt man ein FORTH-Programm laufen? 


Einfache FORTH-Programme haben wir bereits kennengelernt. Diese 
-erden von der Tastatur eingegeben und in dem Augenblick ausge 
führt, in dem wir die Return-Taste drücken. Nach seiner Ausfüh 
rung geht das Programm allerdings verloren. Wenn Sie es wieder 
laufen lassen wollen, dann müssen Sie es erneut in voller Länge 
eingeben. Deshalb wäre es bequem, wenn wir uns Programme so mer- 
<en könnten, daß wir sie jederzeit ohne Neueingabe laufen lassen 
cönnten. Wir behandeln in diesem Abschnitt die Möglichkeit zur 
Speicherung von Programmen auf Diskette oder Kassette. Da die 
dazu benötigten Arbeitsschritte nicht Teil der Sprache FORTH 
sind, sondern von Ihrem Betriebssystem abhängen, können wir auf 
fieses Thema nicht allzu detailliert eingehen. Genauere Einzel 
heiten dazu sollten Sie Ihrem FORTH-Handbuch entnehmen, das zu 
sammen mit Ihrem System ausgeliefert wurde. Bei den meisten 
FORTH-Systemen ähneln sich jedoch die Techniken für das Eingeben, 
Bearbeiten und Speichern von Programmen. Wir wollen in diesem 
Abschnitt deshalb einen allgemeinen Überblick über die nötigen 
Arbeitsschritte geben. Außerdem untersuchen wir noch einmal ge 
nauer den Prozeß des "Laufenlassens" eines Programms. 

Zur Eingabe längerer Programme bedient man sich meistens eines 
sog. Editors ■ Das ist ein spezielles Programm, mit dem man Text- 
material eingeben (in diesem Fall Ihr Programm) und bearbeiten 
(z.B. für Korrekturen) kann. Die meisten in FORTH-Systemen zur 
Verfügung stehenden Editoren sind sog. Bildschirmeditoren , Sie 
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bearbeiten stets eine sog. Eildso . - rr-e. ' - 
gerade auf dem Bildschirm Ihres Terriu.- r: 
der Regel kann eine Bildschirmseiie '.1 -i . : " ~ 
wohl sich bei einigen größeren Bi. ö’= . a 

fang ergibt. Meistens wird der Texi =_f* 5 

gestellt, von denen jede bis zu 54 lier : 1 

kann . 

Die Programme werden auf Diskette oder • aeeetie ; -e ne . : * er t . Je 

der Bildschirm wird innerhalb eines si.mer ?— . arme =Ls ein 
Block bezeichnet. Die Blöcke sind fcrol=^:=-; : r.js ,.art. Sie 

entsprechen bestimmten Adressen auf Ihrer .r.e A =. ,»te :*rer Tiskette. 
Die genauen Konventionen für die Vergers . :r I. :<:.c rrsn entneh 
men Sie am besten Ihrem FORTH-Handbuch . »an B.s e_s : rs'. sriels- 
weise ein Programm edieren und es ansc~ lieber i _r . '20 ab 

speichern wollen, dann geben Sie in einer i- , .-na.- J.C PC-:-System 
folgendes ein: 

120 EDIT (RETURN) (1-7) 


_r . n; -as ‘Sie 

i-eosaen. In 
. fe e E-r, ob 
amtrs: Textum 

teilen dar 
zr.z'sz =_jf nehmen 


Als nächstes können Sie das Textmateriai eir.tirc»sn iss Ihr Pro 
gramm ausmacht. (Wenn Sie in einem Block arre-tsr. der rereits 
einmal verwendet wurde, dann müssen Sie erst eima_ das darin 
enthaltene Textmaterial löschen, ehe Sie rat dsr S's_sir.gabe be 
ginnen können.) In den folgenden Überlegur . ger . __ re'sr -ir davon 
aus, daß das Programm auf einer Diskette gespeir.tart werden soll. 

Der Block, der sich gerade in Arbeit befindet, wird nur. nicht 
sofort auf Diskette gespeichert, sondern statt dessen in einen 
extra dafür reservierten Bereich im Arbeitsspeicher des Computers 
aufbewahrt. Diesen Spezialbereich bezeichnet rar. nt dem Fach 
ausdruck Puffer. Nach Beendigung der Edierarfceit garen Sie ein 
spezielles Kommando ein, durch welches der Editor verlassen und 
der bearbeitete Puffer markiert wird, damit das System weiß, daß 
er aktualisiert werden muß. Der Computer weiß nun, daß der frag 
liehe Puffer neues Textmaterial enthält, das noch nicht auf Dis 
kette gespeichert worden ist; das Abspeichern neuen Materials auf 
die Diskette aber bezeichnet man als Aktualisieren. Jetzt könnten 
Sie einen anderen Block edieren. Das Programm könnte ja z.B. zu 
lang sein, um in einen einzigen Block zu passen. Dann setzen Sie 
es einfach in einem neuen, zweiten Block fort. Wenn Sie jetzt den 
Editor verlassen und den Block für die Aktualisierung markieren. 
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dann existieren somit im FORTH-System zwei Puffer, die jeweils 
neues Textmaterial enthalten und für die Aktualisierung markiert 
sind. Geben Sie jetzt ein 


SAVE-BUFFERS (RETURN) 


(l-8a) 


oder, bei einigen FORTH-Systemen 


FLUSH (RETURN) 


( 1 — 8b ) 


dann wird der Inhalt der markierten Puffer auf die Diskette ge 
speichert . 

Da sich die Puffer im Hauptspeicher des Computers befinden, ist 
ihre Anzahl beschränkt . Wie viele Puffer genau in Ihrem FORTH- 
System zur Verfügung stehen, müssen Sie Ihrem Handbuch entnehmen. 
Bei vielen FORTH-Systemen können Sie dennoch mehr Blöcke bearbei 
ten, als Puffer zur Verfügung stehen. Wenn Sie einen neuen Block 
eröffnen wollen und kein Puffer mehr vorhanden ist, dann werden 
einfach alle markierten Puffer auf Diskette geschrieben und ste 
hen danach wieder zur Verfügung. Dieser Prozeß der Aktualisierung 
geschieht völlig selbsttätig; der Benutzer braucht sich darum 
nicht zu kümmern. Durch das Speichern auf Diskette werden die 
Puffer wieder frei für die Aufnahme von neuem Textmaterial. 

In vielen FORTH-Systemen sagen die Blocknummern auch aus, an 

welcher Stelle der Diskette sich der entsprechende Text befindet. 
Deshalb benötigen diese Systeme keine speziellen Inhaltsverzeich 
nisse für die Disketten. Da das Betriebssystem von FORTH in FORTH 
selbst geschrieben ist, ist es einfach, dieses zu ändern und 
gegebenenfalls Inhaltsverzeichnisse mit aufzunehmen, falls Sie 
dies wünschen. Wie dies geht, erfahren Sie in Kapitel 8. 

Nehmen wir einmal an, Sie wollen ein Programm verändern, das Sie 

mit Ihrem Editor eingegeben haben. Das Programm soll sich im 

Block 120 befinden. Wieder geben Sie (1-7) ein. Daraufhin wird 
der Inhalt von Block 120 von der Diskette gelesen und auf Ihrem 

Bildschirm ausgegeben. Sie können jetzt eine Vielzahl unter 
schiedlicher Operationen mit diesem Text anstellen, wie z.B, 
Zeichen oder Zeilen einfügen oder löschen, bestehende Zeichen 
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überschreiben usw. Dadurch können Sie * "T erressern, 

ohne daß Sie es völlig neu eingeber — Isse* . I _r ür.ernerung auf 
dem Bildschirm dient eine Schreibrar <:e ier : D-r ? : r , der 

(meist in Form eines leuchtender re:':e:ti : rer eir«~f L'nter- 
strichs) Ihnen anzeigt, an welcher ?:si:i;~ _r Irrer Text Sie 
sich gerade befinden. Natürlich gibt es _= _:5f. Mir if cs 'nt denen 
Sie diesen Cursor über Ihren Bildscrirr le-ere- r: an ; ede be 
liebige Stelle des Texts gelangen Rennet . »ev Sie ein Zeichen 
tippen, erscheint dies immer an der Stelle er tan e_rr. der Cur 
sor gerade befindet. Die einzelnen Kcrrenire f Ir i.e Textbear 
beitung (oder "Editierung" ) sind natürlirr vir. S-eter zu System 
verschieden; ziehen Sie deshalb für die :raä::is::e '-r:eit zuerst 
Ihr Handbuch zu Rate. Auch ist es vorteilr.aft -e-r Sie erst ein 
wenig mit Ihrem Editor herumspielen, bevor S.e r_t i-er orliegen- 
den Buch weitermachen. 

Angenommen, Sie haben im Editor ein Prograrr ;e=rnriecen jetzt 
könnten Sie es eigentlich ausführen lassen, »leier »i-Ien wir da 
von ausgehen, daß sich das fragliche Prograrr m--3-ir<. 'II befin 
det . Sie haben den Editor verlassen und den tetre: fanden Block 
für die Aktualisierung markiert. Als nächstes täte- Sie ein 

120 LOAD (RETURN) (1-9) 


Daraufhin wird das Programm ausgeführt. Beachten Sie, dar' es sich 
nicht unbedingt in einem Puffer befinden muß. Wenn es bereits 
fertig geschrieben und abgespeichert ist, also a_f der Diskette 
steht, dann sorgt der Befehl aus (1-9) dafür, dar das Programm in 
Block 120 automatisch von der Diskette gelesen und ir. einen Puf 
fer geschrieben und dann aus diesem Puffer heraus ausgeführt 
wird. Voraussetzung dafür ist natürlich, daß Sie in Irr Disket 
tenlaufwerk die richtige Diskette gelegt haben, die das gewün 
schte Programm enthält. Wenn FORTH einen Block lädt, dann compi- 
liert es den Inhalt dieses Blockes erst in Maschinensprache und 
führt dann das Ergebnis dieses Übersetzungsvorgangs aus. 

Oft beansprucht ein Programm mehr als einen Block. Dann müssen 
Sie, um das Programm laufen zu lassen, mehrere Blöcke laden. Das 
Programm könnte z.B. in den Blöcken 120 und 121 abgespeichert 
sein. Wenn Sie jetzt als letzte Zeile von Block 120 folgendes 
schreiben : 
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'21 LOAD (1-10) 

Sann weist dieser Befehl das FORTH-System an, den Block 121 zu 
laden. Sie brauchen also nur mehr Block 120 zu laden; der Befehl 
am Ende dieses Blockes sorgt dafür, daß Block 121 automatisch 
r.achgeladen wird. Die genauen Einzelheiten dieses Verfahrens 
können auch wieder von System zu System variieren. Auch hierzu 
sollten Sie in Ihrem FORTH-Handbuch nachschlagen. 

Sie haben jetzt einige grundlegende Techniken des Edierens und 
Ladens von Programmen kennengelernt. Kapitel 8 geht auf diese 
Arbeitsschritte noch einmal sehr ausführlich ein. Zusammen mit 
dem bisher Gesagten und Ihrem FORTH-Handbuch sollten Sie jedoch 
;etzt schon in der Lage sein, einfache FORTH-Programme zu schrei- 
oen, zu edieren und laufen zu lassen. 


1 . 6 Programmfehler - Fehlersuche 


So gut wie alle Programme enthalten anfänglich Fehler. Für den 
Anfänger ist dies oft entnervend, es sollte ihn jedoch nicht ent 
mutigen. Erfahrene Programmierer wissen, daß die Fehlersuche ein 
fester Bestandteil des Programmmierprozesses ist; fehlerhafte 
Programme sind die Regel und nicht die Ausnahme. Sie weisen nicht 
auf ein Unvermögen des Programmierers hin. Es ist deshalb wich 
tig, daß man sich als Programmierer möglichst frühzeitig mit den 
Techniken zum Ausfindigmachen und Beheben von Fehlern in Program 
men bekannt macht. Da Programmfehler im Programmierer jargon als 
Bugs bezeichnet werden (das kommt vom Englischen "bug" für "Wan 
ze" ), spricht man in diesem Zusammenhang auch von Debugging . 
Schon diese scherzhafte Ausdrucksweise, bei der die Fehlersuche 
unter "Entwanzen" läuft, sollte Ihnen klarmachen, daß Programm 
fehler keine Katastrophe sind. 

Effiziente Fehlersuche setzt voraus, daß man sich über die Art 
möglicher Fehler im klaren ist. Die einfachste Art von Fehlern 
sind die sog. syntaktischen Fehler. Ein Syntaxfehler unterläuft 
Ihnen immer dann, wenn Sie sich beim Schreiben von FORTH-Program- 
men nicht an die formalen Regeln (die sog. "Syntax") halten, die 
für korrekte Programme in FORTH gelten. Wenn wir z.B. im Programm 
(1-6) das Leerzeichen zwischen dem + und dem * weglassen, dann 
führt dies zu einem Syntaxfehler. Wenn Sie versuchen, dieses 
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fehlerhafte Programm laufen zu lassen, dann erhalten Sie eine 
Fehlermeldung, in der Sie - soweit der Rechner dazu in der Lage 
ist - auf die Art Ihres Fehlers hingewiesen werden. Auf jeden 
Fall führt ein Syntaxfehler in den meisten FORTH-SySternen dazu, 
daß das Programm nicht ausgeführt und nicht die Bereitschaftsmel 
düng "ok" auf dem Bildschirm ausgegeben wird. Unterschiedliche 
FORTH-Systeme geben für den gleichen Fehler unterschiedliche Feh 
lermeldungen aus. Wenn Sie einen Block mit einem fehlerhaften 
Programm laden, so kann die Fehlermeldung z.B. die Programmzeile 
anzeigen, in der der Fehler aufgetreten ist. Meist bricht FORTH 
mit der Compilierung eines Programms ab, wenn es einmal einen 
Fehler in ihm entdeckt hat . Wie auch immer, bei fehlerhaften Pro 
grammen sollten Sie sofort das Programm edieren, den Fehler be 
seitigen und das Programm dann erneut laden. Jetzt funktioniert 
das Programm entweder richtig, oder Sie stoßen (an einer späteren 
Stelle) auf einen weiteren Syntaxfehler. Wenn Sie erst einmal die 
ungefähre Stelle des Syntaxfehlers wissen, dann können Sie ihn 
meist durch einfaches Durchlesen des Programms lokalisieren. 

Ein anderer, etwas schwerer zu beseitigender Fehlertyp sind die 
logischen Fehler. Ein logischer Fehler liegt dann vor, wenn ein 
FORTH-Programm zwar allen formalen Regeln genügt, aber dennoch 
nicht tut, was Sie wollen. Wenn Sie z.B. im Programm 1-6 verse 
hentlich an Stelle eines * ein + eingeben, dann berechnet Ihr 
Programm die Summe aus drei Zahlen, und nicht mehr, wie beabsich 
tigt, das Produkt aus einer Zahl und die Summe von zwei anderen. 
Das Programm ist zwar wohlgeformt, oder, wie man auch sagt, syn 
taktisch korrekt, liefert aber ein falsches Ergebnis. Jedesmal, 
wenn Sie ein neues Programm schreiben, sollten Sie deshalb - egal 
wie einfach das Programm ist! - anhand von Testdaten überprüfen, 
daß es auch das macht, was Sie wollen. Sie könnten z.B. die Er 
gebnisse Ihres Programms mit einem Taschenrechner überprüfen. Tun 
Sie das mit mehreren verschiedenen Eingabedaten. Bei der Überprü 
fung von Programmen kann man nie genug Sorgfalt walten lassen. 
Überprüfen Sie also stets Ihre neuen Programme! 


Für die Lokalisation von Logikfehlern gibt es unterschiedliche 
Techniken. Als erstes sollten Sie Ihr Programm noch einmal durch 
lesen. Sollte der Logikfehler auf einen Schreibfehler zurückzu 
führen sein, dann fällt Ihnen dieser vielleicht beim Durchlesen 
schon auf. Gehen Sie Ihr Programm auch in Gedanken Schritt für 
Schritt durch, genauso, wie es der Computer tut. Dabei entdeckt 
man meist Fehler in der Ablauf logik: es zeigt sich, daß Ihr Pro 

gramm gar nicht berechnet, was Sie berechnet haben wollen. 
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Zeichnen Sie auch Diagramme wie in den Abbildungen 1-1 oder 1-2, 
_t, sich den Zustand des Stacks in jedem Verarbeitungsschritt zu 
vergegenwärtigen. Auch dadurch werden einige Fehler offenbar. 
Einige FORTH-Systeme verfügen über Befehle, mit denen Sie den 
Stack ausdrucken können, ohne ihn zu verändern. Dies kann beim 
Zebugging eine große Hilfe sein, da Sie dann nicht mehr von Hand 
jeweils die Stack-Werte notieren müssen, sondern einfach mit 
diesem Befehl nachsehen können, ob sich auch die gewünschten Wer 
te an der richtigen Stelle im Stack befinden. Wie Sie ja bereits 
wissen, entfernt das FORTH-Wort . das oberste Element vom Stack 
und kann deshalb für diesen Zweck nicht eingesetzt werden. Im 
nächsten Kapitel werden wir übrigens eine Methode kennenlernen, 
die dieses Problem umgeht . 

Einer der großen Vorteile von FORTH ist es, daß Sie in dieser 
Programmiersprache ein großes Programm schreiben können, das aus 
einer Folge von mehreren kleinen Unterprogrammen besteht. Je 
.•deiner ein Programm ist, desto einfacher kann man in ihm logi 
sehe Fehler lokalisieren und beseitigen. Jedes Unterprogramm wird 
sofort, nachdem es fertig geschrieben ist, erst einmal getestet 
und fehlerfrei gemacht. Dadurch bleibt der Prozeß der Fehlersuche 
stets auf relativ kleine und überschaubare Einheiten beschränkt, 
wie man solche Unterprogramme schreibt, erfahren Sie im nächsten 
Kapitel . 


1 . 7 Übungsaufgaben 


1-1 Welche Funktion haben die einzelnen Bestandteile eines Rech- 
ners? 

1 -2 Was ist der Unterschied zwischen Maschinensprache und As- 
semblersprache? 

1-3 Was ist der Unterschied zwischen einer Assemblersprache und 
einer höheren Programmiersprache? 

1-4 Was ist ein Compiler? 

1-5 Was ist ein Linker? 

1-6 Was ist ein Interpreter? 
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1-7 Welche Vor- und Nachteile hat FÖRTH? 'Verwiegen die Vorteile 
die Nachteile? 

1-8 Schreiben Sie ein FORTH-Programm, das fünf Zahlen addiert. 

1-9 Schreiben Sie ein FORTH-Programm, das folgende Berechnung 
ausführt : 

(3+4+5) 6 

1-10 Schreiben Sie ein FORTH-Programm, das folgende Berechnung 
ausführt 


(5+6+7+20+21) (8) (9) 


1-11 

Schreiben Sie 

Editor. Lassen 

das Programm aus Übung 9 
Sie das Programm laufen. 

jetzt 

mit 

Ihrem 

1 -1 

Schreiben Sie 

Editor. Lassen 

das Programm aus Übung 10 
Sie das Programm laufen. 

jetzt 

mit 

Ihrem 
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2 Grundlegende FORTH-Operationen 


dieses Kapitel erweitert unsere Kenntnis der FORTH-Operationen, 
rasierend auf dem im letzten Kapitel besprochenen Stoff. Wir 
reginnen mit einer Erörterung der elementaren arithmetischen 
: r>erationen . Dabei beschäftigen wir uns auch noch einmal mit dem 
Stack und den Manipulationen, die mit dem Stack möglich sind. Aus 
Kapitel 1 kennen wir bereits das Konzept der FORTH-Wörter oder 
Kommandos; das vorliegende Kapitel geht auf diesen Begriff noch 
genauer ein und zeigt Ihnen auch, wie Sie eigene FORTH-Wörter 
definieren können. Dadurch können Sie ein größeres Programm in 
eine Folge kleinerer Unterprogramme aufteilen. Dies sollte Ihnen 
ermöglichen, bereits verhältnismäßig komplexe FORTH-Programme zu 
schreiben. Nocheinmal: Im laufenden Text (nicht in den Beispiel 

trogrammen) schreiben wir FORTH-Wörter oder Kommandos in Fett 
druck. Dadurch können Sie die zur Sprache FORTH gehörigen Aus 
drücke leicht vom restlichen Text unterscheiden. 


2 . 1 Arithmetische Operationen 


dieser Abschnitt behandelt die wichtigsten arithmetischen Opera 
tionen, nämlich die Addition, Subtraktion, Multiplikation und 
Division. Damit Sie in den für FORTH wichtigen Aspekten auch ganz 
sattelfest werden, wiederholen wir hier auch einige der Informa 
tionen, die bereits im letzten Kapitel gegeben wurden. Wir machen 
Sie auch mit einer praktischen Schreibweise vertraut, mit der man 
die Stack-Operationen ausdrücken kann. 


2.1.1 Addition 


Wenden wir uns zuerst der Addition zu. Das FORTH-Wort, das eine 
Addition bewirkt, ist das Pluszeichen ( + ) . Wie Sie bereits aus 
d 'em letzten Kapitel wissen, sorgt + dafür, daß die zwei obersten 
Zahlen auf dem Stack von diesem entfernt werden (pop) und statt 
dessen ihre Summe auf den Stack gepusht wird. Wir wollen einmal 
sehen, wie wir diese Vorgänge im Stack symbolisch darstellen 
können. Angenommen, wir haben drei Zahlen n A , n A und n A , wobei n A 
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das oberste 
Darstellung 
Darstellung 


Stack-Element ist, n A das nächste 
dieser Situation sehen Sie in 
dieses Zustands schreiben wir ganz 


usw. Eine 
Abbildung 
einfach 


bildliche 
2-1. Zur 



ABBILDUNG 2-1 


Ein Stack mit drei Zahlen 


Wie Sie sehen, wird der Inhalt des Stacks charakterisiert durch 
eine Folge von Zahlen, die durch Leerzeichen getrennt sind. Das 
am weitesten rechts stehende Element dieser Zahlenfolge stellt 
das oberste Stack-Element dar. Mit dieser Notation können wir den 
FORTH-Befehl + anschaulich charakterisieren. 


n n_ -> n (2-2) 

1 2 summe 

Dabei soll n^ A die Summe der Zahlen n A und n A darstellen. Wir 

dunm 

bezeichnen einen Ausdruck, wie ihn Beispiel 2-2 bringt, als 
Stack-Relation. Die Ausdrücke links vom Pfeil stellen den Zustand 
des Stacks vor Ausführung des FORTH-Bef ehls dar, während der 
Ausdruck rechts vom Pfeil den Zustand des Stacks nach der Ausfüh 
rung des FORTH-Bef ehls repräsentiert. Natürlich ist es unnötig, 
den ganzen Stack aufzuschreiben; lediglich die an der Operation 


36 



2 Grundlegende FORTH-Operationen 


reteiligten Werte sind von Interesse. Als Beispiel wollen wir ein 
<leines Programm schreiben, das fünf Zahlen addiert und ihre Sum- 
re ausgibt . 


23 45 6 78 1 + + + + + . (RETURN) 


(2-3) 


Auf dieses Programm reagiert der Computer mit 


'53 ok 


In Abbildung 2-2 sehen Sie den Zustand des Stacks während ver 
schiedener Schritte bei der Ausführung dieses Programms. Abbil 
düng 2-2a zeigt den Stack, nachdem die Zahlen 23, 45, 6, 78 und 1 

in dieser Reihenfolge gepusht worden sind. Nach Ausführung des 
ersten (linkesten) + werden die obersten zwei Stack-Einträge ent 
fernt und durch ihre Summe ersetzt. Dies bedeutet, daß zwei Zah 
len durch eine ersetzt werden, weswegen die verbleibenden Stack- 
Daten um eine Postition nach "oben" wandern. Diesen Zustand kön 
nen Sie in Abbildung 2-2b sehen. Ähnlich zeigen die Abbildungen 
2-2c, 2-2d und 2-2e den Stack nach Ausführung der zweiten, drit 

ten und vierten Addition. Schließlich sorgt der Punktbefehl 
dafür, daß das Ergebnis (das oberste Stack-Element) ausgedruckt 
und vom Stack entfernt wird. Nach Beendigung des Programms ist 
der Stack also wieder leer, so, wie Sie es in Abbildung 2-2f 
sehen können. Natürlich stimmt dies nur, wenn der Stack auch vor 
Ausführung des Programms bereits leer war. 


2.1.2 Subtraktion 


Das FORTH-Wort für die Subtraktion ist das Minuszeichen (-) . Die 
Stack-Relation, die die Subtraktion charakterisiert, sieht 
folgendermaßen aus : 


n„ n„ — > n 


diff 


(2-4) 
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I i I i I 1 

I li I 79 i 1851 

I i I i I I 

I 78 i I 6 i 1451 

I — i i .1 i 1 

I 61 I 45 i 1231 

I — i I I I 1 

I 45 i I 23 i I I 

I i I I I 1 

I 23 i I i I I 

I i I *1 I 1 

I i I i I I 

I i I i I I 

I i I i I I 

a) b) c) 


I j j I j .1 

I 130 I II 531 I I 

I j j X x X 

I 23 I I II I 

| _j x 1 I I 


I II II I 

I X x 1 I I 

I II II I 

I I I 1 I I 

I II II I 

X X x 1 I I 

I II II I 

I II II I 

I II II I 

d) e) f) 


Abbildung 2 - 2 : Zustand des Stacks während der Ausführung von 

Programm (2-3) . a) Nachdem 23, 45, 6 i 78 und 1 auf den Stack 

gepusht wurden; b) nach Ausführung des ersten +; c) nach Aus 
führung des zweiten +; d) nach Ausführung des dritten +; e) nach 
Ausführung des vierten +; f) nach Ausführung des Punktkommandos. 


Dabei ergibt sich n A . A durch Subtraktion von n x minuai^ • Wie 
Sie sehen können, wirct also das oberste Stack-Element vom zweiten 
Stack-Element subtrahiert. Ein Programm, das von der Zahl 5 die 3 
subtrahiert und das Ergebnis ausdruckt, sieht folgendermaßen aus: 

53-. (RETURN) 

In Abbildung 2-3 können Sie wieder sehen, wie sich der Stack bei 
Ausführung dieses Programms verhält . 

Das Minuszeichen hat in FORTH eine doppelte Bedeutung; man kann 
es nämlich dazu benutzen, negative Zahlen einzugeben. Schreiben 
wir in FORTH das Minuszeichen vor eine Zahl (ohne Leerzeichen da 
zwischen!), so weiß FORTH, daß es sich dabei um eine negative 
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I 1 

I 31 

I 1 

I 51 

I 1 

I I 

I 1 

I . I 

I . I 

I . I 

I I 


I 1 

12 1 

I 1 

I I 

I 1 

I I 

I 1 

I . I 

I . I 

I . I 

I I 


I 1 

I I 

I 1 

I I 

I 1 

I I 

I 1 

I . I 

I . I 

I . I 

I I 


a) 


b) c) 


Abbildung 2-3: Zustand des Stacks bei Ausführung des Programms 

(2-5) . a) Nachdem 5 und 3 auf den Stack gepusht wurden; b) nach 
Ausführung des -; c) nach Ausführung des Punktkommandos. 


Zahl handelt. Das Minuszeichen ist in 
FORTH-Bef ehl , vielmehr ist es "Teil" der 
Programm 


diesem Fall also kein 
Zahl. Deshalb führt das 


2 -5 - . (RETURN) 


dazu, daß als Ergebnis 7 ausgegeben wird. Wie Sie sehen können, 
befindet sich zwischen dem Minuszeichen und der Ziffer 5 kein 
Leerzeichen . Bekanntermaßen sind alle Zahlen, mit denen wir es 
bisher zu tun gehabt haben, ganze Zahlen oder Integers . Integers 
sind, wie Sie bereits wissen, Zahlen ohne Nachkommastellen. Des 
halb dürfen sie auch nicht mit einem Dezimalpunkt geschrieben 
werden. (Alle Computersprachen benutzen zur Darstellung von Nach 
kommastellen die amerikanische Schreibweise; FORTH bildet hier 
keine Ausnahme. In der amerikanischen Schreibweise wird das Dezi 
malkomma durch einen Dezimalpunkt dargestellt.) Die Integers, mit 
denen wir in FORTH arbeiten können, dürfen allerdings nicht be 
liebig groß sein. Sie müssen sich zwischen -32768 und 32767 ein 
schließlich bewegen. Falls Ihr Programm eine Zahl berechnet, die 
sich nicht innerhalb dieses Bereichs befindet, dann erhalten Sie 
ein falsches Ergebnis ! . Natürlich ist es auch möglich, Zahlen von 
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größerem Betrag bei Berechnungen herar.zuzier.-e* ».e dies geht, 
erfahren Sie in Kapitel 5. 


2.1.3 Multiplikation 


Multiplikation drückt man in FORTH mit den * : rt T a_s . Bei Aus 
führung der Multiplikation werden die zwei leersten Stack-Elemen 
te entfernt und miteinander multipliziert. Saran -ird das Pro 
dukt auf den Stack gepusht. Die Stack-Relatin dir die Multipli 
kation lautet: 


n i n 2 


— > n 


prod 


(2-7) 


Dabei ist n - das Produkt der Zahlen n. r.d r .-Betrachten wir 

r d r~ 

einmal das ¥o?gende FORTH-Programm: 


24 5 3 - * . (RETURN) 


( 2 - 8 ) 


Abbildung 2-4 zeigt Ihnen wieder den Star."; rei den einzelnen 
Programmschritten. Abbildung 2-4a zeigt der. Stack, nachdem 24, 5 

und 3 in dieser Reihenfolge gepusht wurden. Nach Ausführung des - 
werden die obersten zwei Elemente gepoppt, voeei das oberste 
Stack-Element vom zweiten subtrahiert wird. Die Subtraktion hat 
das Ergebnis 2, welches nun als neues oberstes Element auf den 
Stack gepusht wird. Zuvor aber ist die 24 nach eben gewandert und 
ist somit das neue zweite Element auf dem Stack. Diesen Zustand 
zeigt die Abbildung 2-4b. Nun kommt die Multiplikation an die 
Reihe; wieder werden die beiden obersten Stack-Elemente entfernt 
und wir erhalten ihr Produkt (48) . Diese Zahl wird auf den Stack 
gepusht, wodurch der Zustand in Abbildung 2-4d entsteht. Schließ 
lieh wird der Punktbefehl ausgeführt, das oberste Element gepoppt 
und ausgedruckt. Daraufhin ist der Stack leer (Abbildung 2-4d) . 
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a) 


b) 

c) 


d) 



ABBILDUNG 

2-4: Der Stack für das Programm 2-8; 

; a) 

nachdem 24, 5 

und 

3 in 

dieser Reihenfolge eingegeben wurden; 

b) 

nach 

Ausführung 

des 

c) 

nach Ausführung der Multiplikation; 

d) 

nach 

Ausführung 

des 

Punktkommandos . 





2.1.4 Division 


Bis jetzt haben wir uns in unseren Erörterungen auf Integers be 
schränkt, da dies die Darstellung vereinfachte. Wenn wir uns nun 
mit der Division befassen wollen, müssen wir der Arbeit mit Inte 
gers jedoch noch einmal unsere Aufmerksamkeit schenken. Betrach 
ten Sie einmal die Division von 5/2; das Ergebnis ist 2.5. (Be 
achten Sie die amerikanische Darstellung von Bruchzahlen!) Wie 
Sie sehen, kann die Division zweier ganzer Zahlen ein nicht ganz 
zahliges Ergebnis haben. Was macht nun FORTH in solch einem Fall? 
Es läßt ganz einfach den Bruchteil des Ergebnisses weg. Wenn wir 
die obige Divisionsaufgabe unserem FORTH-System stellen, dann 
erhalten wir als Ergebnis die 2! Der Faktor 0,5 ist deshalb noch 
nicht verloren, denn es gibt in FORTH eine Möglichkeit, an den 
Divisionsrest bei ganzzahliger Division heranzukommen. In diesem 
Fall wird der Divisionsrest 1 . (Es gibt natürlich auch die Mög 
lichkeit, in FORTH mit Bruchzahlen zu arbeiten; dies besprechen 
wir jedoch erst in Kapitel 5.) Bei der Arbeit mit negativen Zah 
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len verhält es sich genauso. So ergibt -14/3 den Quotienten -4 

mit Rest -2/3. Das Divisionsergebnis ist also -4, die Nachkomma 
stellen (2/3) werden einfach fallengelassen. Diese Division hat 

den Rest -2. Die Division von 14/ (— 3)> die anscheinend gleich der 

obigen ist, führt dennoch auf ein anderes Erbgebnis. Wir können 
nämlich schreiben 14/ (—3) = -4+(2/-3) . In diesem Fall erhalten 

wir als Divisionsergebnis immer noch -4; jetzt ist der Divisions 
rest jedoch 2. Probieren Sie ein wenig mit Ihrem FORTH-System 
herum, um herauszufinden, wie es sich bei Division mit negativen 

Zahlen verhält . 

Wir kennen bisher noch nicht das FORTH-Wort für die Division; es 
ist der Schrägstrich. Die Stack-Relation für die Division lautet 


n n„ — > n 
1 z guot 


(2-9) 


Auch die Division entfernt, wie alle anderen arithmetischen Ope 
rationen, die wir bisher kennengelernt haben, die obersten zwei 
Stack-Elemente. n A wird durch n A dividiert und der sich dabei 
ergebende Quotient auf den Stack gepusht. Beachten Sie, daß das 
zweite Stack-Element durch das erste Stack-Element dividiert 
wird. Bei Ausführung des FORTH-Wortes / wird kein Divisionsrest 
berechnet. Dazu kommen wir etwas später. Dividieren wir doch ein 
mal 5 durch 3 und lassen uns das Ergebnis ausdrucken: 

5 3/. (RETURN) (2-10) 


Abbildung 2-5 zeigt das zu diesem Programm gehörende Stack-Dia 
gramm. Das Programm 2-10 hat uns allerdings keinen Divisionsrest 
geliefert; das liegt daran, daß das FORTH-Wort / sich nicht um 
den Divisionsrest kümmert. Dafür gibt es ein spezielles Kommando 
in FORTH, nämlich das Wort MOD; dieses dient zur Berechnung des 
Rests einer Division. Die Stack-Relation für dieses Wort ist 


n 'l n 'i "> n 


rest 


( 2 - 11 ) 


In diesem Fall ist n der Rest aus der Division von n./n Wie 

r e st 1 2 ._ 

Sie wissen, befand sich vor Ausführung der Division die Zahl nZ 
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I 1 

I 3 1 

I 1 

I 5 1 

I 1 

I I 

I 1 

I I 

I I 

I I 

I I 

I I 

I I 


I- 1 

I II 

i ji 

i i 

i i 

i i 

i i 

i i 

i i 

i i 

i i 

i i 

i i 


i — i 
i i 

i — i 
i i 

i- -i 
i i 

i- --i 
i i 

i i 

i i 

i i 

i i 

i i 


a) 


b) c) 


ABBILDUNG 2—5 Stack-Diagramm für Programm (2-10); a) nach Einge 
ben von 5 und 3 in dieser Reihenfolge; b) nach Ausführung von /; 
c) nach Ausführung des Punktkommandos. 


an oberster Stelle des Stacks. Das Vorzeichen von n A i^t ^ ^ge- 
mäß den Konventionen von FORTH-79, das gleiche wie das von n A . 
Betrachten wir jetzt einmal das FORTH-Programm, das den Rest der 
Division von 5/3 liefert. 

5 3 MOD . (RETURN) (2-12) 

In Abb . 2-6 finden Sie das zugehörige Stack-Diagramm. 

Es wäre nun schön, wenn wir in einem Programm beide Größen, den 
Quotienten und den Rest, gleichzeitig berechnen könnten. Dafür 
gibt es glücklicherweise ein eigenes FORTH-Wort, nämlich /MOD. 
Beachten Sie, daß in diesem FORTH-Wort zwischen dem Schrägstrich 
und dem M kein Leerzeichen stehen darf. Die Stack-Relation, die 
dieses Wort charakterisiert, sieht folgendermaßen aus: 


D, n„ — > n . n 
i z rest quot 


(2-13) 
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| 1 

I 3 I 

I 1 

I 5 I 

| I 

I I 

I- 1 

I I 

I I 

I I 

I I 

I I 

I I 

I I 

I I 


I --- 

I 2 

X--- 

I 

I --- 

I 

X--- 

I 

I 

I 

I 

I 

I 

I 

I 


-I 

I 

-I 

I 

-I 

I 

-I 

I 

I 

I 

I 

I 

I 

I 

I 



I I 
I I 
I I 
I I 
I I 
I I 
I I 
I I 


a) b) 


c) 


ABBILDUNG 2-6: Stack-Diagramm für Programm (2-12); a) nach Ein 

geben von 5 und 2 in dieser Reihenfolge; b) nach Ausführung des 
Wortes MOD; c) nach Ausführung des Punktkommandos. 


Hier dividieren wir n A durch 
vom Stack. Daraufhin werden 
n auf den Stack gepusht, 

auot 

funrung der Operation n A das 
rung von /MOD befindet sich 
Hierzu ein Beispiel: 


und entfernen diese beiden Zahlen 

der Divisionsrest n , und Quotient 

rest 

Wie Sie sehen können, ist vor Aus 

oberste Stack-Element, nach Ausfüh- 

n . an oberster Stelle des Stacks, 
quot 


5 3 /MOD . . (RETURN) 


(2-14) 


Abbildung 2-7 zeigt das zugehörige Stack-Diagramm. Wie Sie sehen, 
wird nach Ausführung von /MOD der Quotient gedruckt und vom Stack 
entfernt. Deshalb wandert die 2 nach oben und wird neues oberstes 
Element. Nach Ausführung des zweiten Punktkommandos wird der 
Divisionsrest gedruckt und vom Stack entfernt. 
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a) b) c) d) 


ABBILDUNG 2-7: Stack-Diagramm für das Programm (2-14) . a) Nach 
Eingeben von 5 und 3 in dieser Reihenfolge; b) nach Ausführung 
von /MOD ; c ) nach Ausführung des ersten Punktkommandos ; d) nach 
Ausführung des zweiten Punktkommandos. 


Wenn wir also das Programm 2-14 laufen lassen, dann erhalten wir 
folgenden Output 

1 2 ok 


Als letztes Beispiel wollen wir ein Programm schreiben, das den 
Quotienten und Divisionsrest von 3016/ (12+3+14)5 berechnet. (Be 
achten Sie, daß die 5 im Nenner der Division steht.) Das zugehö 
rige Programm sieht folgendermaßen aus: 

3016 5 14 3 12 ++ * /MOD . . (RETURN) (2-15) 

Abbildung 2-8 ist das Stack-Diagramm zu diesem Programm. Abbil 
düng 2-8a zeigt den Stack nach Eingabe von 3016, 5, 14, 3 und 12 

in dieser Reihenfolge. In Abbildung 2-8b sehen wir den Stack, 


45 



2 Grundlegende FORTH-Operationen 


nachdem die beiden obersten Elemente entfernt und durch ihre Sum 
me (15) ersetzt worden sind. Wie Sie sehen können, sind die 14, 5 

und 3016 jeweils um eine Position nach oben gewandert. Den Zu 
stand des Stacks nach Ausführung des zweiten + zeigt die Abbil 
düng 2-8c. In Abbildung 2-8d sehen Sie das Ergebnis der Multipli 
kation der beiden obersten Stack-Elemente 29 und 5; sie werden 
durch das Produkt 145 ersetzt, und die Zahl 3016 wandert nach 
oben. Abbildung 2-8f zeigt den Stack, nachdem die Zahlen 145 und 
3016 gepoppt wurden und /MOD ausgeführt wurde. Jetzt befinden 
sich der Divisionsrest 116 und der Quotient 20 auf dem Stack, 
wobei der Quotient oberstes Stack-Element ist. Die Abbildung 2-8e 
und 2-8f zeigen den Stack zum Stand nach Ausführung der beiden 
Punktkommandos . Dieses Programm bringt folgendes Ergebnis auf den 
Bildschirm Ihres Terminals: 

20 116 ok 

Beachten Sie die Reihenfolge, in der wir die Daten für dieses 
Programm eingegeben haben. Wir wollten 12, 3 und 14 addieren. 

Deren Summe sollte als nächstes mit 5 multipliziert werden, und 

schließlich wollten wir 3016 durch das Ergebnis dieser Multipli 
kation dividieren. Da 3016 die letzte Zahl ist, mit der etwas 

geschehen soll, muß sie sich auch als unterstes Element auf dem 
Stack befinden. Deshalb geben wir diese Zahl als erste ein, denn 
jedesmal, wenn eine neue Zahl auf den Stack gepusht wird, wandert 
die 3016 um eine Position nach unten. Die 5 geht als vorletzte 
Zahl in die ganze Operation ein und wird deshalb als zweites 

Element gepusht. Dann geben wir 14, 3 und 12 ein. Wenden wir uns 

jetzt den FORTH-Wörtern in diesem Beispielprogramm zu. Das Pro 
gramm soll als erstes die Summe der drei obersten Stack-Elemente 
berechnen. Deshalb stehen in dem Programm zuerst die beiden H — 

Wörter. Deren Summe wollen wir als nächstes mit 5 multiplizieren; 
deshalb geben wir das Kommando *. Das nächste FORTH-Wort ist 

/MOD. Dies sorgt dafür, daß 3016 durch das Berechnungsergebnis 
der letzten Operationen dividiert wird und sowohl Quotient als 

auch Divisionsrest auf den Stack gepusht werden. Schließlich 

brauchen wir noch zwei Punktkommandos , um Quotient und Rest auf 
den Bildschirm zu bringen. 
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b) 

c) 


d) 



e) 


f) 



I 1 

I I 

I 1 

I I 

I 1 

I I 

I 1 

I I 

I 1 

I I 

I 1 

I I 

I I 

I I 

g) 

ABBILDUNG 2—8: Stack-Diagramm für Programm 2-15. a) Nach Eingabe 

von 3016, 5, 14, 3 und 12 in dieser Reihenfolge; b) nach Ausfüh 
rung des ersten +; c) nach Ausführung des zweiten +; d) nach 
Ausführung von *; e) nach Ausführung von /MOD; f) nach Ausführung 
des ersten Punktkommandos; g) nach Ausführung des zweiten Punkt- 
kommandos . 
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2 . 2 Stackmanipulationen 


Dieser Abschnitt widmet sich einigen FORTH-Wörtern, die es uns 
erlauben, den Stack zu manipulieren. Zuvor wollen wir uns jedoch 
überlegen, wozu diese Stackoperationen gebraucht werden könnten. 
Nehmen Sie einmal an, wir wollen das oberste Element des Stacks 
ausgeben, ohne es davon zu entfernen. Mit den bisherigen Sprach- 
mitteln ist uns das nicht möglich. Weiterhin können wir mit den 
bisher vorgestellten FORTH-Kommandos auch nicht den Ausdruck (12+ 
3+4) *5/6 berechnen, ohne Daten und Operationssymbole miteinander 
zu vermischen. Das ist zwar möglich, aber in diesem Fall können 
wir für diese Operation kein eigenes FORTH-Wort mehr definieren. 

(Mehr darüber im nächsten Abschnitt.) Es sieht zwar so aus, als 
wäre obiger Ausdruck in FORTH ganz leicht zu berechnen; bei ge 
nauerer Betrachtung stellen wir jedoch fest, daß wir die 6 nicht 
als oberstes Element auf den Stack bringen und deshalb die Divi 
sion nicht wie verlangt ausgeführt werden kann. Darum müssen wir 
wissen, wie man den Stack manipulieren kann. 

DUP - Dieses FORTH-Wort dupliziert das oberste Stack-Element. Es 
wird durch folgendes charakterisiert: 


n -> 


n n 


(2-16) 


Ein Anwendungsbeispiel für dieses Wort sowie das zugehörige Dia 
gramm folgen: 


569 DUP (RETURN) 


(2-17) 


Angenommen, wir wollen das oberste Stack-Element drucken, ohne es 
dadurch für immer vom Stack zu entfernen. Das folgende kleine 
Programm tut genau dies : 


DUP . (RETURN) 


(2-18) 
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I 1 

I 9 1 

I 1 

I 6 1 

I 1 

I 5 1 
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I I 
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I I 
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I I 
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I I 
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a) b) 


ABBILDUNG 2-9: 

Eingeben von 5, 

von DUP. 


Stack-Diagramm für das Programm 
6 und 9 in dieser Reihenfolge; b) 


2-17; a) nach 
nach Ausführung 


Wie Sie sehen, sorgt DUP dafür, daß die oberste Zahl dupliziert 
wird. Wenn nun als nächstes das Punktkommando ausgeführt wird, 
dann wird diese Zahl ausgegeben und vom Stack gepoppt. Da sie 
aber zuvor dupliziert worden war, ist sie noch einmal auf dem 
Stack vorhanden. Somit hat dieses Programm dafür gesorgt, daß das 
oberste Stack-Element ausgedruckt wird, aber auf dem Stack ver 
bleibt . 


DROP - Das FORTH-Wort DROP sorgt dafür, daß das 
Element gepoppt, aber nicht ausgegeben wird. Alle 
Einträge wandern um eine Position nach oben. DROP 
risiert durch die Stack-Relation 


oberste Stack- 
anderen Stack- 
wird charakte 


n -> (2-19) 

Abbildung 2-10 zeigt den Stack bei den einzelnen Schritten des 
folgenden Programms: 
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251 DROP (RETURN) 


I -I 

III 

I 1 

I 5 I 

I 1 

I 2 I 

I- 1 

I I 

I 1 

I I 

I . I 

I I 

I I 

I I 

I I 

I I 

I I 


a) 


( 2 - 20 ) 


I- 1 

I 5 I 

I 1 

I 2 I 

I X 

I I 

I- 1 

I I 

I 1 

I I 

I I 

I I 

I I 

I I 

I I 

I I 

I 1 


b) 


ABBILDUNG 2-10: Stack-Diagramm für Programm 2-20. a) Nach Einge 

ben von 2,5 und 1 in dieser Reihenfolge; b) nach Ausführung von 

DROP . 


Es mag so aussehen, als ob DROP ein völlig überflüssiges Wort 
wäre; wir werden aber noch sehen, daß es durchaus seinen Nutzen 
hat . 

Es gibt Programme, die unaufhörlich neue Zahlen auf den Stack 
legen. Dies kann folgenschwere Konsequenzen haben. Der Stack ist 
nämlich nichts anderes als ein Bereich im Arbeitsspeicher Ihres 
Computers. Wenn Sie fortgesetzt neue Daten auf dem Stack abspei 
ehern, dann wird er einmal voll werden. Der Versuch, in dieser 
Situation neue Datenelemente auf den Stack zu pushen hat zur Fol 
ge, daß dazu Speicherstellen verwendet werden, die gar nicht für 
den Stack vorgesehen sind!. Man spricht in diesem Fall von einem 
Stack-Uberlauf . Es kann dann z.B. passieren, daß Sie die Spei 
cherstellen überschreiben, in denen sich Ihr FORTH-System selbst 
befindet, und so das System "zum Absturz bringen". In diesem Fall 
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oleibt Ihnen oft nichts anderes übrig, als den Resetknopf zu 
drücken und Ihr System neu zu starten. Das bedeutet aber, daß 
alle bisher eingegebenen Daten und Programme unwiederbringlich 
verlorengehen. Mit Hilfe von DROP können Sie aber unnütze Ein 
träge vom Stack entfernen, so seine Größe reduzieren und einen 
Stack-Überlauf vermeiden. 

SWAP - Das FORTH-Wort SWAP vertauscht die obersten beiden Ein 
träge auf dem Stack. SWAP wird durch folgende Stack-Relation cha 
rakterisiert . 


n 2 — > n, n j (2-21) 

Erinnern Sie sich noch an unser Problem, den Ausdruck (12+3+14)* 
5/6 zu berechnen? Wir sind jetzt dazu in der Lage, nämlich über 
das folgende Programm: 


6 5 14 3 12 ++ * SWAP /MOD . . (RETURN) (2-22) 

In Abbildung 2-11 sehen Sie das Stack-Diagramm für dieses Pro 
gramm. Die Teilabbildungen 2— lld und 2-lle zeigen die Wirkungs 
weise von SWAP. Wie Sie sehen, sorgt es dafür, daß die beiden 
obersten Stack-Elemente vertauscht werden. Beachten Sie, daß sich 
SWAP nur auf die obersten zwei Elemente auf dem Stack auswirkt . 
Enthält Ihr Stack mehr als zwei Einträge, so bleiben alle außer 
den obersten beiden von der Operation SWAP unberührt. 

OVER - Ein weiteres nützliches Wort zur Stack-Manipulation ist 
OVER. Dieses Wort dupliziert das zweite Element auf dem Stack und 
bringt das Duplikat an die oberste Stack-Position. Wir können 
OVER durch folgende Stack-Relation beschreiben: 


r f n 2 -> n. ( n 2 n 2 


(2-23) 


Folgendes Programm ist ein Anwendungsbeispiel für OVER. 


2345 OVER (RETURN) 


(2-24) 
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I H --II I 

1121 II 51 1291 

I 1 i I | 1 

131 1141 I 51 

j _ ii 1 i 1 

1141 I 5 I I 61 

I _| | I i 1 

I 5 I I 6 I I I 

I I j I I 1 

I 6 I I II I 

I I I II I 

I II II I 

I _ i i I | I 

I I I .II .1 

I . II .II .1 

I I I - I I -I 

I II II I 

a) b) c) 

I _ ii i i I 

1241 I II I I 

I - I I II I 

I 1 I I I I I 

X —x I -I | 1 

I II II I 

I -I X — I I 1 

I II II I 

I -X I — 1 I I 

I II I I I 

I -I I 1 I 1 

I . I I . I I . I 

I . I I . I I . I 

I . I I , I I . I 


f) g) h) 


i i 

I 1 4 51 

I I 

I 6 I 
I x 

I I 

I 1 

I I 

I 1 

I I 

I 1 

I I 

I I 

I I 

I I 

I I 

I I 


d) 


i i 

I 6 I 

I I 

I 14 51 

I I 

I I 

I I 

I I 

I I 

I I 

I I 

I I 

I I 

I I 

I I 

I I 

I I 

e) 


ABBILDUNG 2—11: Stack-Diagramm für Programm (2-22) . a) nach Ein 

gäbe von 6, 5, 14, 3 und 12 in dieser Reihenfolge; b) nach Aus 
führung des ersten +, c) nach Ausführung des zweiten +; d) nach 
Ausführung des *, e) nach Ausführung von SWAP; f) nach Ausführung 
von /MOD; g) nach Ausführung des ersten Punktkommandos; h) nach 
Ausführung des zweiten Punktkommandos. 
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Das Stack-Diagramm für dieses Programm sehen Sie in Abbildung 2- 
12. Weitere Anwendungsbeispiele für OVER folgen später. 


I 1 i 1 

I 5 I I 4 1 

I 1 i 1 

I 4 I I 5 1 

I 1 i 1 

I 3 I I 4 1 

I 1 i 1 

I 2 I I 3 1 

I 1 i 1 

I II 2 1 

I 1 i 1 

I II I 

I 1 i 1 

I II I 

I II I 

I II I 

I II I 

I II I 

I II I 

a) b) 


ABBILDUNG 2-12: Stack-Diagramm für Programm 2-24. a) Nach Eingabe 

von 2, 3, 4 und 5 in dieser Reihenfolge; b) nach Ausführung von 

OVER. 


PICK - Bei dem FORTH-Wort PICK handelt es sich um eine generali 
sierte Form von OVER. Mittels PICK können Sie jede beliebige Zahl 
auf dem Stack als neues oberstes Stack-Element duplizieren. Bei 
der Ausführung von PICK wird die oberste Zahl auf dem Stack ent 
fernt . Diese Zahl entscheidet dann, welcher Eintrag auf dem ver 
reibenden Stack dupliziert werden soll. Dies läßt sich durch 
folgende Stack-Relation ausdrücken: 


n A — > nnl 


(2-25) 
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Wir wollen uns die Funktionsweise von PICK anhand eines Beispiels 
verdeutlichen . 


32 345 567 189 764 3 PICK (RETURN) (2-26) 

Betrachten Sie dazu das Stack-Diagramm ' in Abbildung 2-13. Bei 
Ausführung von PICK wird die 3, das oberste Stack-Element, ge 
poppt. Als nächstes wird die Zahl, die drittes Stack-Element auf 
dem verbleibenden Stack ist, als neues oberstes Element dupli 
ziert. PICK entscheidet also anhand des obersten Stack-Eintrags, 
welcher andere Eintrag dupliziert werden soll; dabei zählt dieses 
oberste Stack-Element nicht mit! Beachten Sie, daß 2 PICK das 
gleiche bedeutet wie OVER. 


I 1 

1 - 

1 

13 1 

I 

567 I 

I 1 

1 - 

1 

I 764 I 

I 

764 I 

I 1 

I- 

1 

I 189 I 

I 

189 I 

I 1 

1 - 

1 

I 567 I 

I 

567 I 

I 1 

I- 

1 

I 345 I 

I 

345 I 

I 1 

I- 

1 

132 1 

I 

32 I 

I 1 

I- 

! 

I I 

I 

I 

I a) I 

I 

b) I 


ABBILDUNG 2-13: 

345, 567, 189, 

rung von PICK. 


Stack-Diagramm für 2-26. a) Nach Eingabe von 32, 
764 und 3 in dieser Reihenfolge; b) nach Ausfüh 


ROT - Das FORTH-Kommando ROT bringt das dritte Stack-Element an 
die oberste Stack-Position. Die Stack-Relation für ROT lautet: 


n l n 2 n 3 > ~2 n 3 n l 


(2-27) 
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Hier ein Beispielprogramm für den Einsatz von ROT. 

23 45 11 34 55 ROT (RETURN) (2-28) 

Die Abbildung 2-14 zeigt den Stack während der Ausführung dieses 
Programms. 2-14a stellt den Stack nach Eingabe der Daten dar. 2- 
14b zeigt, wie der Stack nach Ausführung des ROT-Wortes aussieht. 

Wie Sie sehen können, wurde das dritte Stack-Element entfernt und 
auf den Stack gepusht. Es wurden -keine Stack-Elemente dupliziert; 
auch bleibt die Anzahl der Stack-Einträge unverändert. 

I 1 i 1 

I 55 I 1 1 1 1 
I 1 i — 1 

134 I I 5 5 I 

I 1 i — 1 

1 1 1 1 I 341 

I 1 i 1 

I 451 I 451 

I 1 i 1 

I 23 I I 231 
I 1 i 1 

I II I 

I 1 I 1 

I .1 I .1 

I .1 I .1 

I .1 I .1 


a) b) 

ABBILDUNG 2—14: Stack-Diagramm für das Programm 2-28. a) Nach 

Eingabe von 23, 45, 11, 34 und 55 in dieser Reihenfolge; b) nach 

Ausführung von ROT. 

ROLL - Bei ROLL handelt es sich um eine generalisierte Form von 
ROT. Mit ROLL können Sie ein beliebiges Stack-Element ohne Dupli 
kation an die oberste Stack-Position bringen. ROLL benutzt 
ähnlich wie PICK - das oberste Stack-Element, um herauszufinden. 
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welcher Stack-Eintrag an die oberste Stelle gebracht werden soll . 
ROLL läßt sich also durch folgende Stack-Relation beschreiben: 


n , — > n 2 

1 n 


(2-29) 


Betrachten wir dazu das folgende Programm: 


41 456 23 17 56 34 4 ROLL (ENTER) (2-30) 

Abbildung 2-15 zeigt das zugehörige Stack-Diagramm. Im Teildia 
gramm 2-15a sehen wir den Stack nach Eingabe von 41, 456, 23, 17, 

56, 34 und 4 in dieser Reihenfolge. Abbildung 2-15b zeigt den 

Stack nach Ausführung von ROLL. Das oberste Stack-Element, in 
diesem Fall die 4, wird vom Stack gepoppt und steuert die nach 
folgende Operation von ROLL. Es wird nämlich der vierte Eintrag 
auf dem verbleibenden Stack, die 23, an oberste Position ge 
bracht, und die Elemente unterhalb des vierten füllen durch "Auf 
rücken" die entstandene Lücke wieder auf. Wie Sie sehen können, 
ist 3 ROLL äquivalent zu ROT. 

DEPTH - Manchmal ist es wichtig zu wissen, wie viele Elemente 
sich auf dem Stack befinden. Das FORTH-Kommando DEPTH pusht eine 
Zahl auf den Stack, die diese Information liefert. Bei der Er 
mittlung der Stack-Tiefe (das englische Wort "depth" bedeutet 
Tiefe) zählt das Ergebnis dieser Operation nicht selbst zum 
Stack. Die Stack-Relation sieht folgendermaßen aus: 


— > 


n 


tiefe 


(2-31) 


Beachten Sie, daß n^_ die Stack-Tiefe vor Ausführung des 

FORTH-Wortes DEPTH anglEt A also den Zustand des Stacks, bevor 
"tiefe se -*-b s t a uf den Stack gebracht wurde. Sehen wir uns einmal 
ein Beispiel für den Einsatz von DEPTH an. 


23 46 57 (RETURN) 

52 437 56 78 (RETURN) 
DEPTH . (RETURN) 


56 


(2-32) 
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ABBILDUNG 2-15: Stack-Diagramm für Programm (2-30) . a) Nach Ein 

gäbe von 41, 456, 23, 17, 56, 34 und 4 in dieser Reihenfolge; b) 

nach Ausführung von ROT. 


Abbildung 2-16 ist das zugehörige Stack-Diagramm. Erst einmal 
geben wir 23, 46 und 57 in dieser Reihenfolge ein. Daraus ergibt 

sich ein Stack-Zustand wie in Abbildung 2-16a. Als nächstes geben 
wir 52, 437, 56 und 78 ein. Die bisher auf dem Stack befindlichen 

Zahlen werden durch Eingeben dieser vier neuen Werte um insgesamt 
vier Positionen nach unten "gedrückt". Als nächstes führen wir 
DEPTH aus. Da sich auf dem Stack jetzt insgesamt 7 Zahlen befin 

den, wird auch eine 7 auf den Stack gepusht; dies sehen Sie in 

Abbildung 2-16c. Schließlich sorgt das Punktkommando dafür, daß 
die 7 vom Stack gepoppt und auf Ihrem Terminal ausgegeben wird. 
Danach ergibt sich der Stack aus der Abbildung 2-16d. Die Teilab 
bildungen 2-16b und 2-16d sind ganz offensichtlich identisch. Die 
Ausführung von DEPTH und anschließendes Ausdrucken dieses Ergeb 

nisses ändern also nichts am Stack-Zustand. 
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ABBILDUNG 2-16: Stack-Diagramm für Programm 2-30. a) nach Eingabe 

von 23, 46 und 57 in dieser Reihenfolge; b) nach Eingabe von 52, 

437, 56 und 78 in dieser Reihenfolge; c) nach Ausführung von 

DEPTH; d) nach Ausführung des Punktkommandos. 


2.3 Definieren eigener FORTH-Wörter 


Die bisher besprochenen FORTH-Wörter werden beim Kauf Ihres Sy 
stems mit ausgeliefert, sind also schon herstellerseitig einge 
baut. Einer der größten Vorteile von FORTH besteht aber darin, 
daß Sie Ihre eigenen Wörter schreiben und diese in den FORTH- 
Wörterschatz mit aufnehmen können. Dieser Abschnitt widmet sich 
diesen benutzerdefinierten FORTH-Wörtern . Sie versetzen uns in 
die Lage, umfangreiche und komplizierte Programme zu schreiben. 
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Zum Definieren eines eigenen FORTH-Wortes verwenden Sie die Kom 
mandos : sowie ; . Wir wollen uns dies an einem Beispiel deutlich 
machen. Dazu definieren wir ein neues FORTH-Wort mit dem Namen 
ADD3, welches drei Zahlen addiert und die Summe auf dem Bild 
schirm ausgibt. Die Definition geht ganz einfach: 

: ADD- + + . ; (RETURN) (2-33) 


Sehen wir uns einmal genauer an, was wir eben gemacht haben. Wir 
haben mit dem Kommando : begonnen, auf das ein Leerzeichen folgt . 

An das Doppelpunktkommando schließt sich der Name des neu defi 
nierten FORTH-Wortes an, in diesem Falle ADD3 . Es folgen die ge 
wünschten Operationen, die durch ein oder mehrere Leerzeichen 
getrennt sind. Die Definition wird durch ein Leerzeichen und ein 
nachfolgendes ; abgeschlossen. Nachdem wir die Informationen in 
(2-33) eingegeben haben, gibt es ein neues FORTH-Wort: unser 
ADD3 ! Wenn wir jetzt irgendwann eintippen: 

ADD3 (RETURN) (2-34) 


dann ist dies genauso, als hätten wir all die Kommandos getippt, 
die in der Definition hinter dem Namen des neuen FORTH-Wortes 
(bis zum Strichpunkt) stehen. Es ist sehr wichtig, daß Sie hinter 
dem Doppelpunkt, der die Definition einleitet, ein Leerzeichen 
freilassen, und ebenso vor dem Strichpunkt, der die Definition 

abschließt. Die Art und Weise, ein neues FORTH-Wort zu definie 
ren, welche wir im Beispiel (2-33) kennengelernt haben, trägt den 
Namen Doppelpunkt-Definition . Sie bewirkt, daß wir ADD3 genauso 
wie jedes andere FORTH-Wort benutzen können. Allerdings geht das 

benutzerdefinierte Wort ADD3 bei einem Warmstart des Computers 
verloren. Wir könnten dann zwar (2-33) erneut eingeben und so 
unser neues Wort wieder ins "Gedächtnis" von FORTH aufnehmen; be- 

guemer aber ist es, mit dem Editor die Definition (2-33) in einem 

Block abzuspeichern. Jedesmal, wenn dieser Block geladen wird, 
wird dann automatisch ADD3 zu einem Teil des FORTH-Systems . 

Wenn wir jetzt eingeben: 


27 34 56 ADD3 (RETURN) 


(2-35) 
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dann ist das genau dasselbe, als hätten wir geschrieben 


27 34 56 + + . (RETURN) 


(2-36) 


In beiden Fällen erhalten wir als Ergebnis 
117 ok 

Noch einmal: Die Definition eines eigenen FORTH-Wortes muß einge 

leitet werden durch das Wort : , gefolgt von einem Leerzeichen und 
abgeschlossen werden durch das Wort ; , dem ein Leerzeichen vor 
ausgeht . 

Bei der Definition eines neuen Wortes können Sie auf alle FORTH- 
Wörter zurückgreifen, die fest eingebauter Bestandteil des Sys 
tems sind, zusätzlich aber auch auf alle Wörter, die Sie selbst 
bereits definiert haben. Es gilt also die Regel: Jedes Wort, das 

in einer neuen Definition benutzt wird, muß zu diesem Zeitpunkt 
dem System bereits bekannt sein. Die eingebauten Wörter aus dem 
"Grundwörterschatz" sind dies sowieso; außerdem aber ist dem Sy 
stem jedes in der Zwischenzeit hinzugekommene benutzerdefinierte 
Wort bekannt und kann in Definitionen eingehen. Die Definition 
eines neuen Wortes - ob durch Eingabe vom Terminal oder durch 
Laden des entsprechenden Blockes - führt dazu, daß dieses Wort 
compiliert wird. Wenn Sie also z.B. die Definition (2-33) einge 
ben, so wird in dem Augenblick, in dem Sie die Return-Taste drük- 
ken, das neue Wort ADD3 compiliert und dem System hinzugefügt . 

Kommen in der Definition eines neuen Wortes andere benutzerdefi 
nierte Wörter vor, dann müssen Sie - gemäß dem soeben Gesagten - 
diese zuvor Ihrem System bekannt machen. Wenn z.B. eines der Wör 
ter in der neuen Definition in einem Block definiert ist, dann 
müssen Sie erst den Block laden, bevor Sie versuchen können, 
dieses Wort zu benutzen. Die Informationen in einem Block werden 
stets in der Reihenfolge geladen, in der sie sich im Block befin 
den. Sie können also in einem Block zwei Wörter definieren, wobei 
die zweite Definition bereits auf das erste Wort zurückgreift. 
Wie bereits erwähnt, wird ein fester Grundstock an "eingebauten" 
Wörtern bei jedem Laden des Systems mitgeladen. Einige Systeme 
verfügen aber noch über zusätzliche Blöcke mit sogenannten Erwei 
terungsworten . Diese Sonderbefehle werden nicht automatisch beim 
Laden des Systems bereitgestellt. Benötigen Sie diese Wörter, sei 


60 



2 Grundlegende FORTH-Operationen 


es für eine Berechnung oder zur Definition eines neuen eigenen 
Wortes, dann müssen Sie erst den oder die Blöcke laden, in denen 
sich die speziellen Wörter befinden. Sie verhalten sich also ge 
nauso wie selbstdefinierte Wörter. 

FORTH-Programme bestehen in der Regel aus einer Vielzahl selbst 
definierter Wörter. Ein Wort benutzt dabei meistens ein oder 
mehrere andere zuvor definierte Wörter, die ihrerseits wieder auf 
andere Wörter zurückgreifen können. Man sägt in diesem Zusammen 
hang auch, daß ein Wort ein anderes aufruft. Dieses gegenseitige 
Aufrufen von Wörtern ist eines der wichtigsten Charakteristika 
von FORTH . Sie sollten die einzelnen Definitionen möglichst kurz 
halten, um die Fehlersuche und Fehlerbeseitigung dadurch zu ver 
einfachen . 

Zur Illustration des eben Gesagten wollen wir jetzt ein kurzes 
Programm schreiben, das den folgenden Ausdruck für beliebige Wer 
te von x berechnet : 


3x 4 + 2x 3 + 5x 2 + 2x + 4 (2-37) 

Abbildung 2-17 zeigt das zugehörige FORTH-Programm . Die Zahlen 
von 0 bis 15 am linken Rand sind nicht Teil des FORTH-Programms ; 
es handelt sich dabei um sogenannte Zeilennummern . die Sie nur zu 
sehen bekommen, wenn Sie sich den Block auflisten lassen, der Ihr 
Programm enthält. Beim Schreiben oder Edieren eines Programms be 
kommen Sie diese Zeilennummern noch nicht zu sehen. Wir nehmen 
sie allerdings in unsere Programmlistings mit auf, um uns besser 
auf einzelne Teile des Programms beziehen zu können. Wenn sich 
unser Programm beispielsweise im Block 115 befindet, dann sorgen 
vir mit 


115 LIST 


(2-38) 


daß wir das Listing der Abbildung 2-1 7 erhalten. 
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0 ( 

1 : 
2 : 

3 : 

4 : 

5 : 

6 : 

7 : 

8 : 
9 : 

1 0: 
1 1 
1 2 
1 3 
14 
1 5 


ZWEITE, DRITTE, VIERTE und POLYNOM ) 
ZWEITE DUP * ; 

DRITTE DUP ZWEITE * ; 

VIERTE DUP DRITTE * ; 


POLYNOM DUP DUP DUP 

VIERTE 3 * 

SWAP DRITTE 2 * + 
SWAP ZWEITE 5 * + 
SWAP 2 * + 

4 + . : 


ABBILDUNG 2-17 : Ein FORTH-Programm zur Berechnung des Polynoms 

(2-37) für verschiedene Werte von x; das Programm enthält auch 
die Definitionen von ZWEITE, DRITTE und VIERTE. 


Gehen wir nun einmal die Einzelheiten des Programms der Abbildung 
2-17 durch. Die Zeile 0 ist ein sogenannter Kommentar . Kommentare 
werden vom FORTH-System ignoriert. Ihr einziger Zweck besteht 
darin, den Programmierer oder andere Leser des Programms mit In 
formationen zu versorgen. Kommentare sind besonders dann für Sie 
sehr hilfreich, wenn Sie sich längere Zeit nach Definition eines 
Programms wieder mit diesem auseinandersetzen müssen. Kommentare 
können an beliebiger Stelle in einem FORTH-Wort oder -Programm 
auftauchen. Zum Schreiben eines Kommentars tippen Sie lediglich 
eine öffnende Klammer gefolgt von einem Leerzeichen. Der Text bis 
zur nächsten schließenden Klammer wird von FORTH ignoriert, wenn 
Sie das Programm compilieren lassen. 

Betrachten wir nun Zeile 1. Hier definieren wir ein neues FORTH- 
Wort mit dem Namen ZWEITE, welches das oberste Stack-Element gua- 
driert, oder, wie man auch sagt, seine "zweite Potenz" liefert. 

(Die zweite Potenz bzw. das Quadrat einer Zahl x schreibt man als 
x , was nichts anderes als x mit sich selbst multipliziert oder x 
mal x ist) . ZWEITE dupliziert als erstes die Zahl, die sich 
zuoberst auf dem Stack befindet . ' Dann werden die beiden obersten 
Stack-Einträge (also zweimal dieselbe Zahl) vom Stack gepoppt und 
miteinander multipliziert. Wir erhalten somit die gewünschte 
Quadratzahl, die jetzt auf den Stack gepusht wird. 
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Nun zu Zeile 2 in Abbildung 2-17 . Hier sehen wir die Definition 
des Wortes DRITTE, welches dafür sorgt, daß das oberste Stack- 
Element entfernt und durch seine dritte Potenz ersetzt wird. (Die 
dritte Potenz einer Zahl ist diese dreimal mit sich selbst multi 
pliziert, also x mal x mal x) . Im ersten Schritt wird das oberste 
Stack-Element dupliziert. Dann rufen wir unser selbstdefiniertes 
ZWEITE auf. Infolgedessen haben wir als oberstes Stack-Element 
das Quadrat der Ausgangszahl. Beachten sie, daß ZWEITE den rest 
liehen Stack unverändert läßt . Deshalb ist das zweite Stack-Ele 
ment immer noch die Ausgangszahl. Wenn wir nun den * ausführen, 
dann werden diese beiden Zahlen vom Stack gepoppt und miteinander 
multipliziert. Als Ergebnis erhalten wir die vierte Potenz der 
Ausgangszahl, die jetzt auf den Stack gepusht wird. 

Zeile 3 der Abbildung 2-17 definiert in bereits bekannter Manier 
das Wort VIERTE, welches das oberste Stack-Element entfernt und 
durch seine vierte Potenz ersetzt. (Die vierte Potenz einer Zahl 

x ist x viermal mit sich selbst multipliziert, also x mal x mal x 
mal x) . Die Definition von VIERTE lehnt sich sehr stark an die 
von DRITTE an, außer, daß VIERTE den gleichen Gebrauch von DRITTE 
macht, wie wir ihn von DRITTE und ZWEITE bereits kennen. 

Wie Sie sehen können, haben wir Zeile 4 leer gelassen. Dem FORTH- 
Compiler machen Leerzeilen nichts aus. Leerzeilen dienen ebenso 
wie ein oder mehrere Leerzeichen in FORTH als Trenner zwischen 
den einzelnen Befehlen. Zusätzliche Leerzeichen und Leerzeilen 
erfüllen nur den Zweck, eine Definition für den menschlichen 

Leser klarer und deutlicher zu gestalten. Aus der Sicht von FORTH 
hätten wir genausogut die Definitionen für ZWEITE, DRITTE und 
VIERTE auf eine einzige Zeile quetschen können, so lange wir nur 
zwischen den einzelnen Wörtern immer mindestens ein Leerzeichen 
frei lassen. Die Lesbarkeit eines Programms kümmert den FORTH- 
Compiler nicht; er behandelt eine Folge von Zeilen in einem oder 
mehreren Blöcken als zusammenhängenden Text. Deshalb sind zusätz 
liehe Leerzeichen und Leerzeilen nicht unbedingt erforderlich. 

Sie sollten sie jedoch freizügig einstreuen, um die Lesbarkeit 
Ihres Programms zu steigern. Gut lesbare Programme lassen sich 
viel leichter fehlerfrei machen. Ein sauberer Programmierstil 

hilft außerdem, Fehler zu vermeiden. 

Zeile 5 der Abbildung 2-17 definiert nun das Kommando POLYNOM, 
mit dem man Ausdrücke der Form (2-37) berechnen kann. Setzen wir 
für x den Wert 5 ein, so geben wir ein: 
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5 POLYNOM 


(2-39) 


Nun zu den Details von POLYNOM. Zuerst erzeugen wir drei Duplika 
te der obersten Stack-Zahl . Somit nimmt die fragliche Zahl die 
ersten vier Positionen auf dem Stack ein. Nun rufen wir VIERTE, 

woraufhin das oberste Stack-Element entfernt und durch seine 

vierte Potenz ersetzt wird. Daraufhin wird eine 3 auf den Stack 
gepusht. Die obersten zwei Zahlen werden nun gepoppt, miteinander 
multipliziert und ihr Produkt auf den Stack gepusht . A Demnach ist 
das neue oberste Stack-Element nichts anderes als 3x . In Zeile 7 
rufen wir als nächstes das Kommando SWAP. Es sorgt dafür, daß die 
Ausgangszahl (5) zuoberst auf den Stack gebracht w A rd. Dann folgt 
das Kommando DRITTE, das gemäß seiner Definition x auf dem Stack 

ablegt . Wir pushen nu A die 2 auf den Stack und rufen das Wort * . 

4 

Jetzt befindet sich 2x zuoberst auf dem Stack, gefolgt von 3x 

Wenn nun durch + addiert wird, dann verschwinden di A se beiden 

Zahlen vom Stack und werden durch ihre Summe (3x + 2x ) ersetzt. 
Machen Sie sich klar, daß jetzt die zweite Zahl auf dem Stack 
wieder die Ausgangszahl ist. Zeile 8 des Programms enthält wieder 
einen SWAP-Befehl, der erneut die Ausgangszahl nach oben bringt. 
Nach Ausführung von ZWEITE wird diese Zahl auf dem Stack durch 

ihr Quadrat ersetzt. Wir legen jetzt die 5 auf A en Stack und 
duplizieren erneut. Daraufhin befindet sich 5x an oberster 

Stack-Position. Führen wir nun + aus, dann werden die beiden 

obersten Zahlen vom Stack entfernt und d A rch i A re Supjme ersetzt, 
welche jetzt den Wert des Ausdrucks 3x + 2x + öx*" darstellt. 
Wieder bringt ein SWAP aus Zeile 9 die Originalzahl zuoberst auf 

den Stack. Sie wird dann mit 2 multipliziert und das Ergebnis auf 
die zweite Zahl im Stack addiert . Darauf addieren wir dann noch 
in Zeile 10 die Zahl 4 und erhalten so das Endergebnis, welches 
wir noch ausgeben lassen. 

Nach Laden des Blockes in Abbildung 2-17 können wir nicht nur das 
neue Wort POLYNOM überall verwenden, ebenso sind die Befehle 
ZWEITE, DRITTE und VIERTE jetzt verfügbar. Wenn wir z.B. eingeben 


5 DRITTE 


(RETURN) 


dann sehen wir auf unserem Terminal 


1 25 ok 
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Wenn also einmal der Block aus der Abbildung 2-17 geladen ist, 
dann können alle darin enthaltenen neu definierten FORTH-Wörter 
genauso benutzt werden, als wären sie eingebaute Wörter. 


2.4 Mehr über FORTH-Wörter 


Im letzten Absatz haben wir die Grundtechniken eingeführt, über 
die man zum Schreiben eigener FORTH-Wörter verfügen muß. Dieser 
Abschnitt beschäftigt sich nun mit einigen weiteren Details, die 
die Definition von FORTH-Wörtern betreffen. Jedes verwendbare 
FORTH-Wort (sei es nun in das System eingebaut oder nachträglich 
definiert bzw. geladen worden) ist im Hauptspeicher Ihres Compu 
ters abgelegt. Die Befehle, die das einzelne Wort ausmachen, 
werden dabei hintereinander in aufeinanderfolgenden Speicher 
adressen gespeichert. Der Speicherplatzbedarf eines FORTH-Wortes 
hängt natürlich von seiner Komplexität ab. Jedesmal, wenn Sie ein 
FORTH-Wort aufrufen, wird der Kontrollfluß Ihres Systems beein 
flußt von den Instruktionen, die für das betreffende Wort im 
Computerspeicher enthalten sind. Der Speicherbereich des FORTH- 
Systems, in dem sich diese Instruktionen befinden, heißt Wörter 
buch. Jeder Eintrag im Wörterbuch setzt sich aus mehreren Kompo 
nenten zusammen. Zusätzlich zu den Befehlen, die die Definition 
des einzelnen Wortes ausmachen, enthält ein Eintrag auch noch 
eine Repräsentation des Namens, den der Benutzer diesem Wort 
gegeben hat. Der Name dient zur Identifikation des Wortes. Außer 
dem enthält der Wörterbucheintrag die Anfangsadresse des Wortes, 
das unmittelbar vor dem aktuellen Wort compiliert wurde. FORTH 
merkt sich also immer nur die Adresse des Wörterbucheintrags, der 
vor der letzten Neudefinition compiliert wurde. Es hat den An 
schein, als könnte das System mit dieser Methode immer nur den 
letzten Eintrag im Wörterbuch finden. Wir haben aber gesagt, daß 
Jeder Wörterbucheintrag zusätzlich noch die Adresse des zuvor 
definierten Wortes enthält. Wenn Sie ein FORTH-Wort aufrufen, 
dann überprüft das System den Namenteil des letzten Wörterbuch 
eintrags, um zu sehen, ob dieser Eintrag das gewünschte Wort ent 
hält. Falls ja, dann wird die Programmsteuerung an die Instruk 
tionen übergeben, die die Definition des Wortes ausmachen. Ist 
das gewünschte Wort aber nicht das letzte im Wörterbuch, dann 
wird der vorletzte Wörterbucheintrag untersucht. Das System kann 
diesen Eintrag finden, weil es sich ja beim letzten Wörterbuch 
eintrag einen Verweis auf den vorletzten Eintrag gemerkt hat. 
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ABBILDUNG 2-18: Graphi sehe Darstellung des Wörterbuches 


Jetzt beginnt die Prozedur von neuem: Das neue Wort (welches im 
gesamten Wörterbuch das vorletzte ist) wird wieder untersucht, ob 
es das gewünschte ist. Falls ja, erhält es die Kontrolle, wird 
also ausgeführt, falls nein, geht FORTH dem bei diesem Wort ge 
speicherten Rückwärtsverweis nach und gelangt so zum drittletzten 
Eintrag im Wörterbuch. Wir sehen also, daß FORTH das Wörterbuch 
so lange von hinten nach vorne durchsucht, bis der fragliche Ein 
trag gefunden wird. Man spricht in diesem Zusammenhang von der 
Wörterbuchsuche. Befindet sich das Wort allerdings nicht im Wör 
terbuch, dann erhält der Benutzer eine Fehlermeldung, und der 
Prozeß des Compilierens bricht ab. Es hat den Anschein, als ob 
diese Form der Wörterbuchsuche äußerst umständlich sei; in Wirk 
lichkeit geht sie aber sehr schnell vor sich. 

Abbildung 2-18 ist eine graphische Darstellung des Zustands un 
seres Wörterbuches, nachdem der Block aus Abbildung 2-17 in das 
System geladen wurde. Wie Sie sehen können, hat der letzte Wör- 
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zerbucheintrag den Namen POLYNOM, der vorletzte Eintrag heißt 
VIERTE, der drittletzte DRITTE usw. Wenn FORTH eine Aufgabe zu 
erledigen hat, dann trifft es sowohl auf Daten als auch auf Wör 
ter. Wir können uns jetzt auch denken, woran FORTH den Unter 
schied zwischen Daten und Befehlen (Wörtern) erkennen kann: Daten 

sind nicht im Wörterbuch eingetragen! 

Wenn Sie von FORTH die Definition eines neuen Wortes verlangen, 
dann legt sich das System einen neuen Wörterbucheintrag an. Das 
Wörterbuch von FORTH warnt Sie, wenn Sie einen Namen doppelt 
vergeben wollen, läßt aber diese Möglichkeit durchaus zu. Wenn 
Sie vorsichtig damit umgehen, können doppelte Wörterbucheinträge 
durchaus verarbeitet werden. Sie können aber auch Probleme mit 
sich bringen. Wir wollen uns den doppelten Einträgen kurz zuwen 
den. Nehmen Sie an, daß wir mit dem Block aus Abbildung 2-17 
arbeiten, der BLOCK 115 sein soll. Weiterhin wollen wir annehmen, 
daß unsere Erstfassung des Programms Fehler enthält. Deshalb 
edieren wir den Block und laden ihn erneut. Jedesmal, wenn wir 
dies tun, werden aber auch neue Definitionen für die Wörter 
ZWEITE, DRITTE, VIERTE und POLYNOM im Wörterbuch abgelegt. Norma 
lerweise kümmert uns das nicht, denn FORTH findet stets zuerst 

die letzte Definition im Wörterbuch, d.h., die neueste und somit 
fehlerfreieste. Wir können also die Warnungen über Wortduplikate, 
die uns FORTH bringt, außer acht lassen und mit der Programmier 
arbeit weitermachen. Es könnte jedoch ein anderes Problem auf 
tauchen. Wenn unser Programm in Block 115 sehr viele Fehler 

enthält, kann es nötig sein, diesen Block verhältnismäßig oft zu 
cearbeiten oder neu zu laden. Das kann dazu führen, daß das 
Wörterbuch, welches ja nicht nur die FORTH-Wörter , sondern auch 
ihre Definitionen enthält, unnötig aufgebläht und zu groß wird, 
der für das Wörterbuch vorgesehene Speicherplatz reicht dann 

nicht mehr aus, und es werden Teile des FORTH-Systems überschrie- 
:en, was dazu führt, daß sich der Rechner "aufhängt". 

leider schleichen sich beim Programmieren fast immer Fehler ein, 
und die Situation stellt sich ein, daß ein Teil der im Arbeits 
Speicher des Rechners enthaltenen Information nutzlos ist. Es 
wäre nun gut, "Schrott" aus dem Wörterbuch entfernen und somit 

Platz für neue, sinnvolle Einträge gewinnen zu können. Dafür gibt 
es ein spezielles FORTH-Wort, nämlich FORGET . Dies leitet sich 
.-.er vom Englischen "to forget" = vergessen. Nehmen wir einmal an, 
faß der BLOCK 115 (vgl. Abbildung 2-17) geladen wurde. Wenn wir 

FORGET POLYNOM (2-40) 
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eingeben, dann wird das Wort POLYNOM aus dem Wörterbuch entfernt, 
und der Platz, den es und seine Definition im Arbeitsspeicher 
eingenommen haben, wird freigegeben. 

Das Wort FORGET kann sogar noch mehr: Wenn wir FORTH dazu veran 

lassen, ein Wort mittels FORGET zu vergessen, dann werden auch 
all die Wörter mit vergessen, die nach dem betreffenden Wort 
definiert wurden. Wenn wir also z.B. den Block aus Abbildung 2-17 
laden und anschließend eingeben 

FORGET DRITTE (2-41) 

dann werden gleichzeitig die Wörter DRITTE, VIERTE und POLYNOM 
aus dem Wörterbuch entfernt. Wenn Sie also einen Block für die 
Fehlersuche laden, dann ist es am besten, wenn Sie bei jedem er 
neuten Ladevorgang dieses Blockes erst einmal die darin enthalte 
nen Wörter vergessen lassen. Dies kann man ganz einfach dadurch 
erreichen, daß man in den Block zwei weitere Einträge mit auf 
nimmt. Betrachten Sie dazu einmal die Abbildung 2-19, welche eine 
leichte Modifikation der Abbildung 2-17 darstellt. 

0 ( ZWEITE, DRITTE, VIERTE und POLYNOM ) FORGET FOO : F00 ; 

1 : ZWEITE DUP * ; 

2 : DRITTE DUP ZWEITE * ; 

3 : VIERTE DUP DRITTE * ; 

4 : 

5 : POLYNOM DUP DUP DUP 

6 : VIERTE 3 * 

7 : SWAP DRITTE 2 * + 

8 : SWAP ZWEITE 5 * + 

9 : SWAP 2 * + 

10: 4 + , ; 

11 
12 
1 3 
14 
1 5 

ABBILDUNG 2-19: Erweiterte Fassung der Abbildung 2-17, die dafür 

sorgt, daß zuvor geladene Versionen des Blockes automatisch ver 
gessen werden; nützlich für Programmentwicklung. 
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Die ersten beiden Instruktionen im Block lauten nun folgender 
maßen 


FORGET F00 (2-42a) 

: F00 ; (2-42b) 

Die Anweisung (2-42b) definiert ein Wort mit dem Namen F00, das 
aber nichts tut. Dennoch macht FORTH pflichtschuldigst einen 
Wörterbucheintrag für dieses seltsame Wort F00 und merkt sich ein 
saar sehr einfache Instruktionen im Zusammenhang mit F00, die 
dafür sorgen, daß F00 beim Aufruf keinerlei Wirkung zeigt . Die 
erste Instruktion im Block ist aber (2-42a) ; wenn wir nun den 
Block aus Abbildung 2-19 erneut laden, er sich also bereits ein 
mal im Wörterbuch befindet, dann sorgt dieses FORGET F00 dafür, 
daß die letzte Kopie des Blockes aus dem Wörterbuch gelöscht 
wird. Beim ersten Ladeversuch des Blockes erhalten Sie jedoch 
eine Fehlermeldung, da sich zu diesem Zeitpunkt noch kein Wort 
*it dem Namen F00 im Wörterbuch befindet. Sie müssen deshalb für 
das erstmalige Laden des Blockes folgendes eingeben: 


: F00 ; (RETURN) 


(2-43) 


Laden Sie jetzt den Block. F00 wird sofort vergessen und an sei 
ner Stelle ein neues Wort F00 ins Wörterbuch eingetragen. Beim 
nächsten Laden des Blockes sorgt die Instruktion FORGET F00 da 
für, daß die alten Einträge in diesem Block aus dem Wörterbuch 
gelöscht werden. Auf diese Art umgehen wir das Problem, daß bei 

; edem Neubearbeiten und Neuladen eines Blockes das Wörterbuch mit 
unnötigem Ballast aufgebläht wird und unser Arbeitsspeicherbe 
reich eingeengt wird. Denken Sie daran, daß Sie (2-43) nur einmal 
eingeben müssen, und zwar, wenn Sie diesen Block das erstemal 
laden. Wenn das Programm fehlerfrei ist, dann sollten Sie den 

Jllock edieren und die Einträge FORGET F00 UND.: F00 ; aus dem 
- lock entfernen. 

Is gibt noch andere Einsatzgebiete für das Wort FORGET. Bei der 

Arbeit mit kleinen Computern wird ein Programm, das gerade in 
Entwicklung ist, manchmal so groß, daß es nicht mehr in den Ar 

beitsspeicher paßt und deshalb nicht mehr ausgeführt werden kann. 
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Bei den meisten Programmiersprachen müssen Sie in diesen Fällen 
Ihr Programm verkürzen oder die Datenmengen einschränken, mit 
denen es arbeiten kann. FORTH bietet hier eine andere Alternati 
ve . Sie können Ihr Programm so schreiben, daß bestimmte Wörter 

nur am Anfang des Programms benötigt werden, am Ende aber nicht 
mehr Vorkommen. In diesem Fall brauchen Sie am Anfang des Pro 
gramms nur diejenigen Wörter zu laden, die an dieser Stelle 
benötigt werden. Der Speicherplatzbedarf wird so reduziert. Die 
zu Beginn des Programmlaufs geladenen Wörter werden nur zur Be 
rechnung der ersten Zwischenergebnisse herangezogen. Ist dies ge 

schehen, so können Sie mittels FORGET unnötige Wörter aus dem 

Wörterbuch und somit dem Arbeitsspeicher des Computers löschen, 
wodurch wieder mehr Platz im Computer zur Verfügung steht. Da 
raufhin kann der Rest des Programms geladen werden und seine Ar 
beit beginnen. 

All dies können beguemerweise Instruktionen übernehmen, die in 
Ihrem FORTH-Programm selbst eingestreut sind, so daß sich der 
Benutzer, der Ihr Programm anwendet, um diese Details gar nicht 
zu kümmern braucht. Die Vorgehensweise ist dabei etwa folgender 
maßen: Sie laden einen bestimmten Block, der die für die ersten 

Berechnungen benötigten Wörter enthält. Die letzten beiden Befeh 
le in diesem Block sind dann ein FORGET sowie ein LOAD, das den 
nächsten Block in den Arbeitsspeicher holt. Die Kombination aus 

diesen beiden Befehlen sorgt dafür, daß die alten Wörter gelöscht 
werden und der neue Block geladen wird. In gewisser Weise benutzt 
diese Technik den Disketten- oder Kassettenspeicher als eine 
Erweiterung des Hauptspeichers. 

Die Methode, in einem Programm immer nur die gerade benötigten 
Teile in den Hauptspeicher "hereinzuladen", trägt den Namen Over 
lay-Technik. Dieser Fachausdruck leitet sich vom Englischen 
"Overlay" = Überlagern her. Bei Anwendung der Overlay-Technik 
stellen Disketten- oder Kassettenspeicher einen sogenannten vir 
tuellen Speicher dar. Diese Speichermedien übernehmen nämlich bei 
der Overlay-Technik die Rolle einer gedachten Hauptspeichererwei 
terung. Overlay-Technik ist gerade bei kleineren Mikrocomputern 
sehr nützlich, in anderen Programmiersprachen aber schwer zu 
handhaben. Bei einer herkömmlichen Programmiersprache müßten Sie 
tatsächlich eine Folge von kleineren, unabhängigen Programmen 
schreiben, diese einzeln hintereinander laufen lassen und über 
Dateien die Zwischendaten von einem zum anderen Programm überge 
ben . Das Aufrufen der einzelnen Dateien und das Übergeben der 
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Zwischendaten ist in diesem Fall Sache des Benutzers, der also 
rr.it zusätzlichem Arbeitsaufwand belastet wird. 

Kehren wir noch einmal zu dem Problem der doppelten Namen im 
PORTH-Wörterbuch zurück. Betrachten Sie einmal das FORTH- Pro 
gramm in Abbildung 2-20. Hier definieren wir zwei Wörter mit dem 
Namen TEST1 . 


0 ( Ein Beispiel für Namensduplikate ) 

1 : TEST1 2 . ; 

2 : RUNNER1 TEST1 3 . TEST1 ; 

3 : TEST1 4 . ; 

4 : RUNNER2 TEST1 TEST1 RUNNER1 TEST1 TEST1 ; 

5 

6 

7 

8 

9 

0 


ABBILDUNG 2-20 : Ein Beispiel für doppelte Namen 


J 


erstes 

>>.rc*;<< 


s hier auf ganz einfache FORTH-Wörter beschränkt, 
firriert das Wert 7EST1, welches lediglich die Zahl 2 
I r Zeile 2 definieren wir RUNNER1, welches das Wort 
■_i z , dann eine 3 ausgibt und erneut TEST1 auf ruft. 

~.s 1 die Zefiriticr eines weiteren Wortes, das eben 

. aren TEST1 trägt und die Zahl 4 ausgibt . Wir können 

• eltr.es TTST1 gerade ausgeführt wird, indem wir 
zz- eite 2 tder eine 4 gedruckt wird. Schließlich de 
r nen in Zeile 4 das Wert RUNNER2, das zweimal TEST1 
-- - tas -er* .RuNUCERI ercnält und schließlich noch 
— ' ruft. b —~ a lade* des 5lcc<es in Abbildung 2-20 wird 
.t * * jS.äCrc ci€ l€i.r 2 usv* Wer.r. wir 
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dann erhalten wir als Ergebnis eine 4 . Das am weitesten hinten 
stehende Wort im FORTH-Wörterbuch mit dem Namen TEST1 ist nämlich 
unsere Definition aus Zeile 3 der Abbildung 2-20. Da das Wörter 
buch von hinten durchsucht wird, findet FORTH diese Definition 
als erste und wendet sie an. Jetzt wollen wir einmal sehen, was 
bei Ausführung von RUNNER2 passiert. Wir erhalten folgendes Er 
gebnis : 


4423244 (2-45) 

Wird RUNNER1 als Teil von RUNNER2 aufgerufen, dann ruft dieses 
Wort seinerseits TEST1 . In diesem Fall wird aber das erste TEST1 

ausgeführt. Diese Version bringt eine 2 auf den Bildschirm. Wäh 
rend der Ausführung von RUNNER1 beginnt also jede Wörterbuchsuche 
mit dem ersten Wort, das unmittelbar vor der Compilierung von 

RUNNER1 def iniert wurde. Das ist der Grund, weswegen jetzt das 
erste TEST1 zur Ausführung gelangt. Wenn andererseits RUNNER2 
ausgeführt wird, dann ruft dieses Wort nach Ausführung von RUN- 
NERI seinerseits wieder TEST1 . Diesmal wird jedoch zweimal die 4 

ausgegeben. Nachdem nämlich die RUNNER1 abgearbeitet ist, beginnt 
die Wörterbuchsuche wieder bei dem letzten Wort, das unmittelbar 
vor RUNNER2 def iniert wurde, da FORTH ja gerade mitten in der 
Compilierung und Ausführung von RUNNER2 steckt. Wenn wir jetzt 
eingeben: FORGET TEST1, dann ist dies genauso, als würde der 

Block nur die Zeilen 0 bis 2 der Abbildung 2-20 enthalten. In 
diesem Fall würde bei Aufruf des Wortes TEST1 eine 2 ausgegeben 
werden . 

Noch eine letzte Warnung: Das Wort FORGET läßt sich auf jeden 

Wörterbucheintrag anwenden. Sie können also sogar den Befehl ge 

ben : FORGET +! Seien Sie aber vorsichtig mit diesen Dingen, da 

hierbei FORTH einen Großteil seiner wichtigsten Rechenfähigkeiten 
verlieren und deshalb arbeitsunfähig werden kann. Dann hilft 
Ihnen nur noch ein Systemstart weiter. 
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2 . 5 Weitere Kommandos zur Stack-Manipulation 


Dieser Abschnitt führt einige weitere Kommandos ein, mit denen 
der Stack manipuliert werden kann und die gelegentlich sehr 
nützlich sind. Die Kommandos sind den im Kapitel 2-2 eingeführten 
sehr ähnlich, operieren aber mit zwei Stack-Positionen gleichzei 
tig. Im Kapitel 2-1 haben wir erfahren, daß in FORTH verarbeit 
bare Zahlen zwischen -32768 und 32767 liegen müssen. In der Regel 
werden Integers - so nennt man Zahlen aus diesem Bereich - in 
zwei aufeinanderfolgenden Speicherwörtern des Computers abgelegt, 
von denen ein jedes 8 Bit umfaßt. Dabei gehen wir davon aus, daß 
Ihr Computer Speicherwörter von 8 Bit Länge verwendet . In diesem 
Fall arbeitet FORTH automatisch mit zwei Speicherwörtern, die al 
so, was den Programmierer betrifft, in FORTH als eine Einheit 
erscheinen. Wenn wir bisher über eine Integer auf dem Stack ge 
sprochen haben, dann war dieser Stack-Eintrag eine Einheit, ob 
wohl er maschinenintern aus zwei 8-Bit-Bytes (oder Maschinenwor 
ten) zusammengesetzt ist. Manchmal ist es nötig, mit Zahlen zu 
arbeiten, deren Betrag die Schranke 32767 überschreitet. FORTH 
stellt üblicherweise Möglichkeiten für die Arbeit mit wesentlich 
größeren Integers zur Verfügung. Solche Zahlen tragen den Namen 
doppelt genaue Integer" . Dieser Zahlentyp beansprucht jedoch 
mehr Platz als die normalen, einfach genauen Stack-Einträge. Sie 
werden deshalb auf zwei hintereinander folgenden Stack-Positionen 
gespeichert. Wenn wir den Stack manipulieren wollen, darauf aber 
doppelt genaue Zahlen abgelegt sind, dann brauchen wir spezielle 
Befehle, die Paare von Stack-Positionen manipulieren. Um etwa 
eine doppelt genaue Integer mittels DROP vom Stack zu entfernen, 
müßten wir das Wort DROP zweimal ausführen. 

Das Rechnen mit doppelt genauen Integers erläutern wir noch ein 
mal ausführlich in Kapitel 5. Hier wollen wir uns nur mit den Be 
fehlen beschäftigen, die zur Manipulation eines Stacks mit dop 
pelt genauen Einträgen benötigt werden. Diese Wörter können wir 
aber nicht nur bei doppelt genauen Integers, sondern auch bei 
einfach genauen Einträgen benutzen. Sie können nämlich genausogut 
Paare von einfach genauen Zahlen manipulieren, wie man sie zur 
Bearbeitung eines doppelt genauen Eintrags benutzen kann. In der 
Regel gehören die hier besprochenen Befehle nicht zu dem FORTH- 
Kern, der automatisch geladen wird; es handelt sich vielmehr um 
Erweiterungswörter, die Sie vermutlich selbst in den Speicher 
bringen müssen. 
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2DUP - Dieses Wort dupliziert die obersten beiden Positionen des 
Stacks, also entweder die obersten beiden Integers oder die ober 
ste doppelt genaue Zahl. 2DUP ist charakterisiert durch die 
Stack-Relation 


-> n . n 

I 


n, n , 


(2-46) 


Wie Sie bereits wissen, steht in diesen Stack-Relationen "n" für 
eine einfach genaue ganze Zahl (Integer) . Wir wollen in Zukunft 
doppelt genaue Zahlen mit dem Buchstaben "d" abkürzen und können 
dann die Stack-Relation für das Wort 2DUP folgendermaßen formu 
lieren : 


d -> d d 


(2-47) 


Ein genauer Vergleich von (2-47) mit (2-16) zeigt, daß diese 
Stack-Relationen denselben Sachverhalt zum Ausdruck bringen, 

außer, daß hier zwei Integers "n" immer durch eine doppelt genaue 
Zahl "d" ersetzt wurden. Wenn wir wollen, können wir uns natür 
lieh eine eigene Definition für 2DUP schreiben; diese sieht so 
aus : 

: 2DUP DUP 3 PICK SWAP ; (2-48) 

Abbildung 2-21 stellt ein Stack-Diagramm für folgendes Programm 
dar : 


4 2 2DUP 


(2-49) 


2DROP - Das FORTH-Wort 2DR0P entfernt die beiden obersten Inte 
gers (bzw. die oberste doppelt genaue Zahl) vom Stack. Seine 
Stack-Relation ist 


n 


1 


n 2 


— > 
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bzw. mit doppelt genauen Zahlen 


d -> (2-51) 
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e) 



ABBILDUNG 2-21: Stack-Diagramm für das Programm (2-48) . a) Nach 

Eingeben von 4 und 2 in dieser Reihenfolge; b) nach Ausführung 
von DUP ; c ) nachdem 3 auf den Stack gepusht wurde; d) nach Aus 
führung von PICK; e) nach Ausführung von SWAP. 


2SWAP - Mit dem FORTH-Kommando 2SWAP werden die beiden obersten 
Stack-Elemente miteinander vertauscht. Dies kann man sich an fol 
gender Stack-Relation deutlich machen: 


n i n 2 n 3 n 4 — > n 3 n 4 n l n 2 
Eine eigene Definition von 2SWAP könnte 


(2-52) 


folgendermaßen aussehen: 


: 2 SWAP ROT 4 ROLL SWAP 


(2-54) 
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Die Abbildung 2-22 ist ein Stack-Diagramm zum folgenden kleinen 
Programm: 


8 1 7 9 7 2 SWAP (2-55) 
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ABBILDUNG 2-22: Stack-Diagramm für Programmbeispiel 2-55. a) nach 

Eingeben von 8, 17, 9 und 7 in dieser Reihenfolge; b) nach Aus 

führung von ROT; c) nachdem 4 auf den Stack gepusht wurde; d) 
nach Ausführung von ROLL; e) nach Ausführung von SWAP. 


In der Regel werden die mit Ihrem FORTH-System mitgelieferten 
Wörter etwas schneller laufen als die selbstdefinierten, die wir 
hier als Beispiel angegeben haben. 

2ROT - Mit dem FORTH-Wort 2ROT wird die dritte doppelt genaue 
Integer an die oberste Position des Stacks gebracht. Für einfach 
genaue Integers sieht die Stack-Relation folgendermaßen aus: 


n l n 2 n 3' * % V- " " T-4 n 5 n f- l n - 2 
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Bei doppelt genauen Zahlen haben wir 


di d2 d3 "> d2 dß di 


(2 ” 57 ) 


20VER - Das FORTH-Wort 20VER dupliziert die zweite doppelt genaue 
Zahl als oberstes Stack-Element. Für einfach genaue Integers 
sieht die Stack-Relation so aus: 


n-j. n 2 n 3 n A — > nj n 2 n A n 4 n 1 n 2 


(2-58) 


Bei doppelt genauen Integers haben wir 


dl d2 .> di d2 di 


(2-59) 


Alle bisher eingeführten Wörter zur Stack-Manipulation sind also 
völlig analog zu denen, die wir in Abschnitt 2-2 bereits für ein 
fach genaue Zahlen kennengelernt haben. 


2 . 6 Der Return-Stack 


Wir haben in den bisherigen Darstellungen stets ohne weitere 

Unterscheidung von "dem Stack" gesprochen; genaugenommen müßten 

wir jedoch vom Parameter-Stack bzw. Daten-Stack sprechen, da 
dieser Stack zur Speicherung der Daten oder Parameter dient, mit 
denen die einzelnen Wörter arbeiten. Die meisten FORTH-Program- 

mierer sprechen aber nur kurz vom "Stack". Es gibt jedoch noch 

einen zweiten Stack, den sog. Return-Stack (wörtlich "Rückkehr- 

Stack") . Diesen Stack benötigt das FORTH-System zur Buchführung 
über die eigenen Operationen. Falls der Return-Stack durcheinan 
derkommt, brechen alle Berechnungen ab, und Sie müssen Ihr System 
neu starten, wobei Sie möglicherweise alle Daten verlieren. Es 

gibt einige FORTH-Wörter , mit denen Sie den Return-Stack manipu 
lieren können. Es scheint so, als ob Sie für diese Wörter gar 

keinen Bedarf hätten, da ja immer die Gefahr besteht, das FORTH- 

System zu zerstören. Befolgen Sie aber bei der Arbeit mit dem 
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Return-Stack einige einfache Regeln, dann können Sie diesen ohne 
Gefahr für Ihre eigenen Funktionen einsetzen. 

Bei der Ausführung eines selbstdefinierten FORTH-Wortes bedient 
sich FORTH nicht des Return-Stacks. (Wir müssen diese Feststei 
lung später noch etwas einschränken; auf jeden Fall gilt sie für 
alle bisher definierten Wörter.) Sie können also ebenso den Re 
turn-Stack innerhalb eigener Wörter heranziehen, solange Sie nur 
dafür sorgen, daß der Return-Stack nach Beendigung Ihres selbst 
definierten Wortes wieder in seinem alten Zustand ist . 


FORTH-Programmierer setzen den Return-Stack ein, um Zwischener 
gebnisse bei Berechnungen zu speichern. Angenommen, Sie wollen 
die 5. Zahl auf dem Stack mit 7 multiplizieren. Dazu könnten Sie 
mittels ROLL die 5. Zahl an die oberste Stack-Position bringen 
und anschließend mit 7 multiplizieren. Im Anschluß daran müßten 
Sie jedoch eine Folge von Operationen unternehmen, um das Produkt 
wieder an die fünfte Stack-Position zu bringen. Einfacher wäre 
es, die ersten vier Stack-Einträge mittels POP zu entfernen und 
irgendwo zwischenzuspeichern; dadurch käme automatisch der fünfte 
Stack-Eintrag an oberste Stelle und könnte bequem mit 7 multipli 
ziert werden. Anschließend müßte man die vier soeben entfernten 
Zahlen vom Zwischenspeicher wegnehmen und der Reihe nach wieder 
auf den Stack pushen. Dies ist eine viel bequemere Lösung des 
obigen Problems. Für solche Zwecke - also das Zwischenspeichern 
von Werten während einer Berechnung - setzt man oftmals den Re 
turn-Stack ein. Deshalb betrachten wir jetzt zwei neue FORTH- 
Wörter, mit denen wir Einträge vom Parameter-Stack (auch Daten- 
Stack) auf den Return-Stack legen können und umgekehrt. Selbst 
verständlich funktioniert auch der Return-Stack nach demselben 
Prinzip wie der Daten-Stack (vgl. Kapitel 1-4), d.h., das zuletzt 

auf dem Stack abgelegte Element befindet sich zuoberst auf diesem 
und wird auch als erstes wieder vom Stack entfernt. 

>R - Das FORTH-Kommando >R poppt das oberste Stack-Element und 
pusht es auf den Return-Stack. Diese Operation läßt sich durch 
folgende Stack-Relation ausdrücken: 


n 


> 


(2-60) 


In Abbildung 2-23 sehen Sie eine Darstellung des Daten-Stacks und 
des Return-Stacks vor und nach Ausführung von >R. Zur Unterschei- 
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düng zeichnen wir in unseren Diagrammen den Return-Stack mit 
doppelt durchgezogenen Seitenbegrenzungen. 

R> - Das FORTH-Wort R> entfernt den obersten Eintrag auf dem 
Return-Stack und legt ihn auf den Daten-Stack. Die Operation R> 
ist also die "Umkehrung" von >R. Die zugehörige Stack-Relation 
lautet 

-> n (2-61) 
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a) b) 


ABBILDUNG 2-23: a) Daten-Stack und Return-Stack; b) Stand von 

Daten-Stack und Return-Stack nach Ausführung von >R; der Return- 
Stack ist mit doppelt durchgezogenen Seitenlinien dargestellt. 

Abbildung 2-24 zeigt Ihnen den Daten-Stack und den Return-Stack 
vor und nach Ausführung von R> . Wenn Sie Ihre eigenen FORTH-Wör- 
ter definieren, dann müssen Sie darauf achten, daß stets eine 
gleiche Anzahl von >R- und R>-Befehlen in diesem Wort enthalten 
sind. Bei den bisher geschriebenen Programmen ist das sicher 
nicht sehr schwierig, da sich darin stets ein Verarbeitungs 
schritt ohne Unterbrechung an den anderen anreiht. In dem nachfo 
lgenden Kapitel werden wir jedoch noch Möglichkeiten kennenler 
nen, mit denen Programme verzweigen und unterschiedliche Verar 
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beitungsschritte auslösen können. In solchen Programmen müssen 
Sie äußerst genau darauf achten, daß sich die ausgeführten >R- 
Befehle mit den im Programm aufgerufenen R>-Wörtern die Waage 
halten. Weiterhin werden wir in den folgenden Kapiteln Verschach 
telungen von Programmen kennenlernen, also innerhalb eines Wortes 
eingebettete Programmstrukturen. Auch hier muß die Anzahl der 
Befehle, die auf den Return-Stack schreiben, genau gleich der 
Anzahl derer sein, die Daten vom Return-Stack entfernen. 
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a) b) 

Abbildung 2-24: a) Der Stack und der Return-Stack; b) die beiden 

Stacks nach Ausführung von R> . 


Zurück zu unserem Ausgangsproblem: Schreiben wir ein kleines Pro 

gramra, das die fünfte Zahl auf dem Stack mit 7 multipliziert. 


: 5MULT7 >R >R >R >R 7 * R> R> R> R> ; 


(2-62) 


Als erstes entfernen wir die obersten vier Zahlen vom Parameter- 
Stack und pushen sie auf den Return-Stack. Dann legen wir eine 7 
auf den Daten-Stack und führen das Wort * aus. Somit ist die ehe 
dem fünfte Zahl auf dem Daten-Stack mit 7 multipliziert worden. 
Als nächstes holen wir die zwischengespeicherten vier Werte wie 
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der vom Return-Stack und legen sie auf den Daten-Stack. Infol 
gedessen befindet sich der Return-Stack in seinem ursprünglichen 
Zustand; auch auf dem Daten-Stack ist alles beim alten, außer daß 
die fünfte Zahl mit 7 multipliziert wurde. 

Wir wenden uns nun einigen Befehlen zu, die eine Zahl vom Return- 
Stack kopieren und auf den Daten-Stack pushen. Diese Instruktio 
nen verändern den Return-Stack nicht ■ weswegen wir auch nicht die 
gleichen Vorsichtsmaßnahmen wie bei R> und >R treffen müssen. 

R@ oder X Das Kommando R@ dupliziert den obersten Eintrag des 
Return-Stacks auf den Daten-Stack. Es wird also die Zahl, die 
sich zuoberst auf dem Return-Stack befindet, jetzt auch noch auf 
den Daten-Stack gepusht. Dadurch ändert sich der Return-Stack 
nicht. Die zugehörige Stack-Relation sieht folgendermaßen aus: 


-> n 

retl 


(2-63) 


Die Abbildung 2-25 zeigt das Stack-Diagramm für eine Anwendung 
von R@ . Bei einigen FORTH-Systemen, einschließlich dem MMSFORTH, 
kann man anstelle des Befehls R@ auch das Wort I verwenden. Gemäß 
den Standards von FORTH-79 sollte man I jedoch nur anwenden, um 
einen Laufindex für eine DO-Schleife zu erhalten. Wir werden uns 
diesem Thema in Kapitel 4 noch genauer zuwenden. (Beachten Sie, 
daß in einigen FORTH-Systemen das Wort R@ unter Umständen gar 
nicht vorhanden ist; in diesem Fall müssen Sie auf I zurückgrei 
f en . ) 

I' - Das FORTH-Wort I* dupliziert die zweite Zahl am Return-Stack 
auf den Datenstack. Wiederum bleibt der Return-Stack unberührt 
von der Operation; lediglich der Daten-Stack wird um einen Ein 
trag erweitert. Dies charakterisiert die folgende Stack-Relation: 


-> n 

ret2 


(2-64) 


Beachten Sie, daß das Wort I' 
ist. Es ist jedoch im MMSFORTH 
plementiert . 


kein Teil des FORTH-7 9-Standards 
und in anderen FORTH-Systemen im 
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a) b) 


ABBILDUNG 2-25: a) Der Stack und der Return-Stack; b) die beiden 

Stacks nach Ausführung von R@ . 


J - Mittels J können Sie die dritte Zahl des Return-Stacks auf 
den Daten-Stack duplizieren. Das Wort läßt den Return-Stack un 
verändert. Seine Stack-Relation ist 


Auch dies ist kein Wort von FORTH-7 9, jedoch in MMSFORTH und an 
deren FORTH-Systemen implementiert. I' und J können jedoch in 
FORTH-79 zusammen mit DO-Schleifen implementiert sein. Mehr darü 
ber erfahren Sie in Kapitel 4 . 

Wir wollen nun mit Hilfe der Wörter, die wir zuletzt kennenge 
lernt haben, unser Wort POLYNOM (vgl. Abbildung 2-17) noch einmal 
definieren. Die modifizierte Version sehen Sie in Abbildung 2-26. 
Wir gehen hier davon aus, daß die Wörter ZWEITE, DRITTE und VIER 
TE wie in Abbildung 2-17 zu Teilen Ihres FORTH-Systems gemacht 
wurden (z.B. durch Laden des entsprechenden Blockes) . Wie Sie 
bereits wissen, können wir das Wort POLYNOM für einen Wert von x 
= 5 anwenden, indem wir eingeben 
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5 POLYNOMIAL 

Betrachten Sie nun die erste Zeile der Abbildung 2-26. Der Wert 
für x, in diesem Fall 5, wird vom Daten-Stack entfernt und auf 
den Return-Stack gepusht. Anschließend wird er in Zeile 2 vom 
Return-Stack dupliziert und befindet sich jetzt wieder auf dem 
Daten-Stack. Mit diesem Wert 5 arbeitet nun das Wort VIERTE, 
wobei anschließend das Ergebnis von VIERTE mit 3 multipliziert 
wird. Somit befindet sich jetzt 3x 4 an oberster Stack-Position. 
Zeile 4 dupliziert die zwischengespeicherte 5 erneut vom Return- 
Stack auf den Daten-Stack und ruft das Wort DRITTE. Danach pushen 

wir die 2 auf den Stack und führen * aus. Jetzt haben wir bereits 
4 3 

3x und 2x auf dem Stack stehen. Wie Sie sehen können, gleicht 
das Programm in weiten Teilen dem aus Abbildung 2-17. Die meisten 
Details der Zeilen 4, 5 und 6 entsprechen der alten Version; die 
Programme unterscheiden sich lediglich in der Art, in der der 
Parameter 5 den einzelnen Wörtern VIERTE, DRITTE und ZWEITE über 
geben wird. In Zeile 6 drucken wir schließlich das gewünschte 
Ergebnis aus. Ehe wir nun jedoch unser Wort POLYNOM verlassen 
können, müssen wir erst alle Änderungen, die wir am Return-Stack 
vorgenommen haben, wieder rückgängig machen. Dafür sorgt das R> 
in Zeile 7, denn es entfernt den obersten Wert vom Return-Stack 
und legt ihn auf den Daten-Stack. Jetzt haben wir wieder densel 
ben Zustand auf dem Return-Stack wie bei Beginn des Programms. 
Wir könnten jetzt mit der Definition von POLYNOM aufhören, würden 
aber in diesem Fall auf dem Daten-Stack den zuletzt darauf ge 
pushten Wert (in diesem Fall 5) hinterlassen . Dies ist schlechter 
Stil und führt zu unnötigem Aufblähen des Stacks. Deshalb haben 
wir in Zeile 7 noch ein zusätzliches DROP aufgenommen. Damit 
verlassen wir die Wortdefinition. 


0 ( Alternative Fassung von POLYNOM ) 

1 : POLYNOM >R 


2 

3 

4 

5 

6 

7 


R @ VIERTE 3 * 

R @ DRITTE 2 * + 
R 0 ZWEITE 5 * + 

R 0 2 * + 

4 + , 

R> DROP ; 


ABBILDUNG 2-26: 


Modifizierte Version des Wortes POLYNOM 
aus Abbildung 2-17 
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2 . 7 Weitere Arithmetik-Befehle 


Wir betrachten nun einige weitere FORTH-Wörter, mit denen wir 
mathematische Operationen ausführen können. Einige einfache Be 
rechnungen werden nämlich sehr häufig gebraucht, weswegen dafür 
bereits vorgefertigte FORTH-Wörter zur Verfügung stehen. 

1 + - D as Wort 1 + entfernt den obersten Stack-Eintrag, erhöht 

( inkrementiert ) seinen Wert um 1 und pusht anschließend diese 
Summe auf den Stack. Wir erhalten als Stack-Relation: 


n — > n+1 


( 2 - 66 ) 


Wir können natürlich unser eigenes 1 + schreiben; dies sieht dann 
folgendermaßen aus : 


: 1+ 1 + ; (2-67) 

Beachten Sie aber, daß das eingebaute Wort 1 + in der Ausführung 
schneller ist als ein selbstgeschriebenes, da eingebaute Wörter 
in Maschinensprache geschrieben sind. 

1- - Das FORTH-Wort 1— entfernt die oberste Zahl vom Stack, 

subtrahiert davon 1 (dekrementiert sie) und pusht das Resultat 
auf den Stack. Die zugehörige Stack-Relation lautet: 
n — > n-1 (2-68) 

2 + - Das FORTH-Wort 2 + entfernt die oberste Zahl vom Stack, 

addiert darauf 2 und legt das Ergebnis als neuen obersten Eintrag 
auf den Stack. Die Stack-Relation lautet. 

n — > n+2 (2-69) 
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2 - - Das FORTH-Wort 2 - entfernt die oberste Zahl auf dem Stack, 

subtrahiert davon die 2 und pusht die Differenz wieder auf den 
Stack. Als Stack-Relation haben wir: 


n — > n-2 


(2-70) 


2 * - Das FORTH-Wort 2 * entfernt die oberste Zahl vom Stack, 

multipliziert sie mit 2 und legt das Produkt auf dem Stack ab. 
Die Stack-Relation lautet 


n — > n * 2 


(2-71 ) 


Dieses Wort ist zwar noch kein Bestandteil von FORTH-7 9, ist aber 
in MMSFORTH und in anderen FORTH-Systemen bereits implementiert. 

2 / - Das Wort 2 / entfernt die oberste Zahl vom Stack, dividiert 

sie durch 2 und legt den entstehenden Quotienten auf den Stack. 
Seine Stack-Relation ist 


n — > n/2 


(2-72) 


Es gibt keine Variante dieses Wortes, die - ähnlich wie MOD - den 
Divisionsrest berechnet . Auch dieses Wort ist noch kein Teil des 
FORTH-7 9-Standards , aber bereits in MMSFORTH und anderen Systemen 
implementiert . 


16 * - Das FORTH-Kommando 16 * entfernt die oberste Zahl auf dem 

Stack, multipliziert sie mit 16 und legt das Produkt auf den 
Stack. Ihre Stack-Relation lautet: 

n -> n* 1 6 (2-73) 


Dieses Kommando ist kein Teil von FORTH-7 9, aber bereits in MMS 
FORTH und anderen FORTH-Systemen implementiert. 
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Wenden wir uns nun einigen Wörtern zu, die Zahlenpaare manipulie 
ren . Diese entfernen im allgemeinen die zwei obersten Einträge 
vom Stack und ersetzen sie durch einen neuen Wert. 

MIN - Das FORTH-Wort MIN entfernt die zwei obersten Stack-Ein 
träge und ersetzt sie durch den kleineren der beiden (das Mini 
mum) . Seine Stack-Relation lautet: 


(2-74) 

2 3 MIN . (RETURN) eine 2 auf dem Bild 

4 -30 MIN . (RETURN) das Ergebnis -30. In 

Stack nach Ausführung des Punktkommandos 

leer . 

MAX - Das Kommando MAX entfernt die zwei obersten Zahlen auf dem 
Stack und legt die größere der beiden dort wieder ab. Seine 
Stack-Relation lautet: 


n n_ — > n .. 

I 2 mm 

Wir erhalten also mit 
schirm. Ähnlich ergibt 
beiden Fällen ist der 


n 


1 


— > n 

max 


(2-75) 


Die nächsten beiden Wörter arbeiten wieder nur mit der obersten 
Zahl auf dem Stack. In beiden Fällen wird diese Zahl entfernt und 
durch eine andere ersetzt. 

NEGATE - Das Wort NEGATE entfernt die oberste Zahl auf dem Stack, 
multipliziert sie mit -1 und legt dieses Produkt auf den Stack. 
Dadurch wird das Vorzeichen der Ausgangszahl vertauscht. Die 
Stack-Relation lautet: 

n -> -n (2-76) 

Wenn wir z.B. eingeben 

6 NEGATE . (RETURN) (2-77) 
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wird als Ergebnis -6 ausgedruckt. Nach Ausführung des Punktkom 
mandos ist der Stack wieder leer, vorausgesetzt, er war vor Aus 
führung dieses Wortes auch leer. 

ABS - Das FORTH-Wort ABS entfernt den obersten Stack-Eintrag und 
liefert dessen Absolutwert. Daher leitet sich auch der Name die 
ses Wortes her. Der Absolutwert wird dann auf den Stack gelegt. 
Wie Sie wissen, ist der Absolutwert einer positiven Zahl einfach 
diese Zahl selbst. Den Absolutwert einer negativen Zahl erhält 
man, indem man diese Zahl mit -1 multipliziert, also positiv 
macht. Dies wird durch folgende Stack-Relation ausgedrückt: 


n -> | n | 


(2-78) 


Wenn wir z.B. eingeben 


-6 ABS . (ENTER) 


(2-79) 


dann wird als Ergebnis 6 ausgedruckt. Danach (nach Ausführung des 
Punktkommandos) ist der Stack leer, vorausgesetzt, er war auch 
vor Ausführung dieses Wortes leer. 


2.7.1 Zufallszahlen 


Manchmal wollen wir auf unserem Rechner ein Zufallsereignis, wie 
etwa das Würfeln oder das Werfen einer Münze, simulieren. Im Fal 
le des Würfels müßten wir dazu Zahlen zwischen 1 und 6 in zufäl 
liger Reihenfolge erzeugen können. Beim Münzwurf benötigen wir 
nur Zahlen zwischen 0 und 1 (oder zwei beliebige andere Zahlen) , 
die in zufälliger Reihenfolge auf dem Bildschirm erscheinen. Im 
allgemeinen kann das Bedürfnis auftauchen, eine zufällige Folge 
von Zahlen, die sich in einem vorgegebenen Bereich bewegen, vom 
Computer erzeugen zu lassen. Natürlich gibt es Computerprogramme, 
die scheinbare Zufallsfolgen von Zahlen erzeugen. Im streng ma 
thematischen Sinn sind diese Folgen nicht zufällig, sie reichen 
jedoch für die meisten Anwendungsgebiete aus. Man nennt sie aus 
diesem Grund auch "Pseudozufallszahlen" , Eine Möglichkeit zum 
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Erzeugen von Zufallszahlen ist in FORTH-79 nicht vorgesehen. Ei 
nige FORTH-Systeme kennen aber dennoch die dafür nötigen Befehle. 
Wir wenden uns deshalb den Wörtern zu, die in MMSFORTH zur Erzeu 
gung von Zufallszahlen zur Verfügung stehen. 

RND - Das FORTH-Wort RND entfernt die oberste Zahl n A vom Stack 
und erzeugt daraufhin eine Pseudozufallszahl n , )r die zwischen 1 
und rij liegt. Diese Zufallszahl wird dann auf den Stack gelegt. 
Die Stack-Relation lautet . 


n i -> (2-80) 

Wenn wir z.B. eingeben: 24 RND (RETURN), dann wird die 24 vom 

Stack entfernt und dafür eine Zufallszahl zwischen 1 und 24 dort 
abgelegt. Der Zufallszahlengenerator verwendet eine sogenannte 
Ursprungszahl, um eine zufällig erscheinende Zahlenfolge zu er 
zeugen. Wenn wir die Ursprungszahl ändern, dann sorgen wir auch 
dafür, daß der Generator eine neue Zahlenfolge produziert. 

SEED - Um die Ursprungszahl ändern zu können, müssen wir zwei 
FORTH-Wörter einsetzen: Eines lautet SEED, das andere ist das 

Ausrufezeichen i. Wir schreiben sie in der Reihenfolge SEED ! 
hin. Achten Sie auf das Leerzeichen. Die Bedeutung des Wortes ! 
erläutern wir in Kapitel 6. Für den Augenblick wollen wir die 

Folge von Wörtern SEED ! so behandeln, als handle es sich dabei 
um einen einzigen Befehl. Das FORTH-Wort SEED ! entfernt die 
oberste Zahl vom Stack und macht sie zur neuen Ursprungszahl für 
den Zufallszahlengenerator. Die Stack-Relation für SEED 1 lautet: 

n -> (2-81) 

Mittels 10 SEED ! (RETURN) ändern wir die Ursprungszahl auf 10. 

Wenn wir die Ursprungszahl in zufälliger Folge ändern wollen, 
dann können wir mittels RND eine Zufallszahl auf den Stack legen 
und diese dann durch das Wort SEED ! vom Stack entfernen und zur 
neuen Ursprungszahl machen. Es gibt aber auch ein Kommando, das 
all diese Schritte ausführt. Bei Eingabe von RN1 wird die nächste 
Zufallszahl erzeugt und als neue Ursprungszahl für die Reihe ver 
wendet. Diese Operation hat keinerlei Auswirkungen auf den Stack. 
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Die Ursprungszahl bestimmt also die Folge von Pseudozufallszah 
len, die generiert werden. Bei gleicher Ursprungszahl erhalten 
wir stets die gleiche Folge. Im allgemeinen ist die Folge der 
Pseudozufallszahlen sehr lang, aber endlich. Nach einer gewissen 
- unter Umständen sehr langen Zeit - beginnt sie sich also zu 
wiederholen. Wenn wir ein Spielprogramm mittels RND schreiben, 
dann spielt dieses Programm deswegen immer auf die gleiche Weise. 
Deshalb wäre es wünschenswert, die "Einsprungstelle" in die Reihe 
der Zufallszahlen selbst bestimmen zu können. Dafür gibt es ein 
spezielles FORTH-Wort . 

RANDOMIZE - Das Wort RANDOMIZE benötigt keine Zahl auf dem Stack. 
Jedesmal, wenn Sie es aufrufen, ändert RANDOMIZE die Position in 
der Folge der Zufallszahlen. Wenn Sie also mit RANDOMIZE arbei 
ten, dann beginnt Ihre Zahlenfolge an einer anderen Stelle und 
erscheint so unterschiedlich. 


2.7.2 Ändern der Zahlenbasis 


Anwender, die sich um die Details der Maschinensprache nicht zu 
kümmern brauchen, arbeiten für gewöhnlich im Dezimalsystem . Die 
ses uns sehr vertraute System verwendet die Ziffern von 0 bis 9 
und wird vornehm als "Zahlensystem zur Basis 10" bezeichnet. Im 
Unterschied dazu verwenden Computer ein "binäres" Zahlensystem, 
also ein System mit der Basis 2 . Alle in Ihrem Computer gespei 
cherten Zahlen und alle Werte, mit denen er rechnet, sind zur 
Basis 2. Bei der Ein- oder Ausgabe von Zahlen findet jedoch eine 
Umwandlung in das Zehnersystem statt, um dem Menschen die Arbeit 
zu erleichtern. FORTH bietet Ihnen nun die Möglichkeit, diese 
Umwandlung zu ändern, so daß Sie auch mit anderen Zahlensystemen 
außer dem Dezimalsystem arbeiten können. Viele Systemprogrammie 
rer verwenden die Basis 8 (das oktale Zahlensystem) oder die 
Basis 16 (das hexadezimale Dezimalsystem) . Sie können Ihrem Sys 
tem sagen, in welcher Basis Sie die Ein- oder Ausgabe von Zahlen 
wünschen. (Wenn Sie nicht mit anderen Zahlensystemen vertraut 
sind, dann können Sie diesen Absatz übergehen. Für ein Verständ 
nis von FORTH ist es nicht wichtig, genauere Kenntnisse über 
Zahlensysteme zu besitzen.) Die im Folgenden vorgestellten Wörter 
sind bisher noch kein Bestandteil von FORTH-79. Dies kann sich in 
Zukunft aber durchaus ändern. Auf jeden Fall sind sie in MMSFORTH 
und anderen FORTH-Systemen implementiert. 
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HEX - Mit dem Wort HEX ändern Sie die Basis für die Ein-/Ausgabe 
von Zahlen in das Hexadezimalsystem um. HEX hat keine Auswirkun 
gen auf den Stack. Es ändert also keine Zahl auf dem Stack oder 
irgendwo anders in Ihrem Rechner. Die einzigen Auswirkungen, die 
HEX hat, beziehen sich auf Ihre Ein- und Ausgaben. Sie sollten 
das Wort HEX immer allein verwenden, es also nie zum Bestandteil 
eines anderen Wortes (einer Definition) machen. Kommt es doch 
einmal in einem FORTH-Wort vor, dann sollte dieses Wort keine 
Eingabe von numerischen Daten erfordern. 

DECIMAL - Das FORTH-Kommando DECIMAL funktioniert genauso wie 
HEX, außer daß es die 10 zur neuen Zahlenbasis macht. Beim Star 
ten Ihres FORTH-Systems ist die Zahlenbasis 10 ohnehin voreinge 
stellt . 

OCTAL - Das Wort OCTAL stellt auf Zahlenein- und ausgabe im 
Oktalsystem (Basis 8) um; ansonsten funktioniert es genauso wie 

HEX. 

BASE - Das Wort BASE wird - ähnlich wie SEED - nur zusammen mit 
dem Wort ! verwendet. Einige FORTH-Systeme, wie z.B. MMSFORTH, 
ermöglichen es, die Ein-/Ausgabebasis auf andere Werte als 10, 8 

oder 16 zu setzen. Diesen Effekt erreicht man durch zwei FORTH- 
Wörter, nämlich BASE ! . Mit dieser Wortfolge wird die oberste 
Zahl vom Stack entfernt und zur Zahlenbasis für alle folgenden 
Daten einer Ausgabe gemacht. Ihre Stack-Relation lautet: 


n 


> 


(2-82) 


So ist z.B. 16 BASE ! gleichbedeutend mit HEX. 


2 . 8 Übungsaufgaben 


In den folgenden Übungsaufgaben sollten Sie soweit wie möglich 
Programme und benutzerdefinierte FORTH-Wörter auf Ihrem Computer 
austesten . 

2-1 Schreiben Sie ein FORTH-Programm, das folgende Operationen 
ausführt : 
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3+4++5-6 

2-2 Wiederholen Sie Aufgabe 2-1 mit (3+4+18-25) *5 

2-3 Wiederholen Sie Aufgabe 2-1 mit (3+19-4) /6. 

2-4 Schreiben Sie ein FORTH-Programm, das den Quotienten und den 
Rest des folgenden Ausdrucks berechnet: 

(3+4+6 ) n 

2-5 Wiederholen Sie Aufgabe 2-4 mit (3+4*6) /7 

2-6 Schreiben Sie ein FORTH-Programm, das die oberste Zahl auf 

dem Stack mit 5 multipliziert, die Antwort ausdruckt und die 

ursprüngliche Zahl auf dem Stack hinterläßt. 

2-7 Erörtern Sie Einsatzmöglichkeiten für das Wort DROP. 

2-8 Wiederholen Sie Aufgabe 2-4 mit dem Ausdruck (4 + 5 — 6*3) /7 . 

Achten Sie darauf, Daten und FORTH-Wörter nicht miteinander 
zu vermischen. 

2-9 Vergleichen Sie die FORTH-Wörter OVER und PICK. 

2-10 Vergleichen Sie die FORTH-Wörter ROT und ROLL. 

2-11 Schreiben Sie ein FORTH-Programm, das die Anzahl der Einträ 
ge auf dem Stack ausgibt. 

2-12 Legen Sie dar, wie man in FORTH neue Wörter definieren kann. 

2-13 Schreiben Sie ein eigenes FORTH-Wort, das die obersten vier 
Zahlen auf dem Stack addiert und dann das Ergebnis druckt. 

2-14 Wiederholen Sie Aufgabe 2-13; diesmal soll der Stack nach 
Beendigung des Wortes unverändert bleiben. 

2-15 Schreiben Sie ein FORTH-Wort, das den Durchschnitt der er 
sten fünf Zahlen auf dem Stack berechnet . Geben Sie sowohl 
den Quotienten als auch den Divisionsrest aus. 


91 



Grundlegende FORTH-Operationen 


2-16 Schreiben Sie ein FORTH-Programm zur Berechnung von 

6x 5 +3x 4 +2x 3 -21x 2 -17x+5 

für verschiedene Werte von x. 

3 

2-17 Schreiben Sie ein FORTH-Programm zur Berechnung von ax +b 
für verschiedene Werte von a, b und x. 

2-18 Schreiben Sie ein FORTH-Programm zur Berechnung von 
3 2 

ax +bx +cx+d 

für verschiedene Werte von a, b, c, d und x. 

2-19 Erörtern Sie das FORTH-Wörterbuch . 

2-20 Erörtern Sie das FORTH-Wort FORGET . 

2-21 Legen Sie dar, wie FORGET bei der Fehlersuche einzusetzen 
ist . 

2-22 Was bedeutet der Ausdruck "doppelt genaue Zahl"? 

2-23 Vergleichen Sie die FORTH-Kommandos DUP und 2DUP . 

2-24 Schreiben Sie ein eigenes FORTH-Wort, das die gleiche Wir 
kung wie 2DROP hat . 

2-25 Schreiben Sie ein eigenes FORTH-Wort, das die gleiche Wir 
kung wie 2ROT hat . 

2-26 Schreiben Sie ein eigenes FORTH-Wort, das die gleiche Wir 
kung wie 20VER hat. 

2-27 Welche Hauptaufgabe hat der Return-Stack? 

2-28 Welche Probleme können sich ergeben, wenn Sie den Return- 
Stack in selbstdefinierten Wörtern heranziehen? Wie kann 
man diese Probleme vermeiden? 

2-29 Schreiben Sie ein FORTH-Wort, das die ersten fünf Zahlen auf 
dem Stack multipliziert, den Stack aber ansonsten unverän 
dert läßt. Bedienen Sie sich dazu des Return-Stacks. 
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2-30 Warum müssen Sie bei der Verwendung von >R und R< mehr Sorg 
falt walten lassen als bei R(§? 

2-31 Erörtern Sie die FORTH-Wörter I, I' und J. 

2-32 Wiederholen Sie Aufgabe 2-18, verwenden Sie aber diesmal den 
Return-Stack . 

2-33 Warum ist es sinnvoll, mittels DROP Daten vom Stack zu 
entfernen, die nicht mehr gebraucht werden? 

2-34 Schreiben Sie mit den in Abschnitt 2-7 eingeführten FORTH- 
Wörtern ein neues FORTH-Wort, das 1 auf den obersten Stack- 
Eintrag addiert und dann das Ergebnis dupliziert. 

2-35 Schreiben Sie ein FORTH-Wort, das die kleinste der ersten 
vier Zahlen auf dem Stack ausgibt. 

2-36 Wiederholen Sie Aufgabe 2-35, lassen Sie jedoch den Stack 
unverändert . 

2-37 Wiederholen Sie Aufgabe 2-35, machen Sie diesmal aber die 

größte Zahl ausfindig. 

2-38 Wiederholen Sie die Aufgabe 2-36, machen Sie diesmal aber 
die größte Zahl ausfindig. 

2-39 Wiederholen Sie die Aufgabe 2-35, machen Sie diesmal aber 
den größten Absolutbetrag ausfindig. 

2-40 Wiederholen Sie Aufgabe 2-36, machen Sie diesmal aber den 

größten Absolutbetrag ausfindig. 

2-41 Wiederholen Sie Aufgabe 2-35, machen Sie diesmal aber den 

kleinsten Absolutbetrag ausfindig. 

2-42 Wiederholen Sie Aufgabe 2-36, machen Sie diesmal aber den 

kleinsten Absolutbetrag ausfindig. 

2-43 Vergleichen Sie die FORTH-Wörter NEGATE und ABS. 

2-44 Was ist eine Zufallszahl? 

2-45 Was ist eine Ursprungszahl? 
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2-46 Schreiben Sie ein FORTH-Wort, das eine Zufallszahl zwischen 
1 und 55 erzeugt. 

2-47 Schreiben Sie ein FORTH-Wort, das eine Dezimalzahl in ihr 
hexadezimales Äquivalent umwandelt. 

2-48 Wiederholen Sie die Aufgabe 2-46, wandeln Sie diesmal aber 
in eine Oktalzahl um. 

2-49 Schreiben Sie ein FORTH-Wort, das fünf Zahlen in hexadezima 
ler Darstellung addiert und ihre Summe sowohl hexadezimal 
als auch dezimal ausgibt. 
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Ein- und Ausgabeoperationen 




3 Elementare Ein- und Ausgabeoperationen 


Bisher konnten wir nur über das FORTH-Wort . Zahlen auf dem Bild 
schirm ausgeben. Dieses Kapitel wird Ihre Kenntnisse über die 
Ein-/Ausgabe von Daten erweitern. Wir werden FORTH-Kommandos ken 
nenlernen, die uns die Ausgabe von Textmaterial (Wörtern) erlau 
ben . Solcher Text kann dazu dienen, die Ergebnisse von Berechnun 
gen zu erläutern und die Bildschirmausgaben lesbarer zu machen. 
Zusätzlich kann man mit Textausgaben den Benutzer zur Eingabe von 
gewünschten Werten auffordern, was besonders für die Benutzer 
eine große Hilfestellung ist, die keine erfahrenen Programmierer 
sind. Weiterhin werden wir Verfahren kennenlernen, mit denen wir 
Zahlendaten lesbarer gestalten können. 


3 . 1 Textausgabe 


Dieser Abschnitt widmet sich einigen FORTH-Wörtern, mit denen wir 
Text auf dem Bildschirm des Terminals ausgeben können. Wenn wir 
etwa ein Programm laufen lassen, das die Summe von vier Zahlen 
berechnet, dann wäre es wünschenswert, daß dieses Programm den 
Text "DIE SUMME LAUTET" ausgibt, um sein Ergebnis zu erläutern. 
Wenn wir ferner ein Programm schreiben, das eine Wertetabelle 
ausdruckt (z.B. eine Quadrat- und Kubikzahlentabelle) , dann wäre 
es wünschenswert, Überschriften über diese Tabelle drucken zu 
können . 

und " - mit den FORTH-Wörtern . " und " kann man Textmaterial 
ausgeben. Wenn wir eingeben: 

. 11 JETZT DRUCKEN WIR TEXT " (RETURN) (3-1 ) 


so bekommen wir auf unserem Bildschirm zu sehen: 


JETZT DRUCKEN WIR TEXT ok (3-2) 
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Wie Sie sehen können, befindet sich ein Leerzeichen hinter dem 
Wort y " ebenso, wie sich hinter FORTH-Wort ein Leerzeichen 

befinden muß. Der gesamte folgende Text hinter dem Leerzeichen 

wird auf dem Bildschirm ausgegeben. Er endet mit dem Kommando ". 
Diese beiden Wörter haben keine Auswirkung auf den Stack. Ehe wir 
uns einem komplizierteren Beispiel für die Ausgabe von Textmate 
rial zuwenden, wollen wir noch einige weitere FORTH-Wörter ken 

nenlernen . 

#IN - Das FORTH-Kommando #IN dient der Eingabe von Zahlen. Wenn 
der FORTH-Interpreter auf #IN stößt, dann unterbricht er seine 
Arbeit und gibt ein Fragezeichen auf Ihrem Bildschirm aus. An 
schließend können Sie eine ganze Zahl im Bereich von -32768 bis 

32767, gefolgt von RETURN, eingeben. Die eingegebene Zahl wird 
auf den Stack gelegt, und FORTH fährt mit der Arbeit fort. Das 

Wort #IN ist kein Bestandteil von FORTH 79, findet sich aber in 

MMSFORTH; die meisten anderen FORTH-Systeme verfügen über ähnli 
che Wörter. 

CR - Das FORTH-Wort CR gibt die Zeichen für Wagenrücklauf und 
Zeilenvorschub auf Ihrer Konsole aus. Dies bewirkt, daß nachfol 
gendes Textmaterial am Anfang der nächsten Zeile ausgegeben wird. 
Zwei CR-Kommandos hintereinander erzeugen somit eine Leerzeile, 
mit drei solchen Wörtern erzeugen wir zwei Leerzeilen usw. Auch 
CR hat keine Auswirkungen auf den Stack. 

QUIT - Manchmal wollen wir aus ästhetischen Gründen die Ausgabe 

von "ok" unterbinden, das FORTH nach jedem erfolgreich abgearbei 
tetem Wort auf den Bildschirm bringt . Dies erreichen wir, wenn 

das letzte Wort in unserem Programm QUIT ist. Das Programm wird 

beendet, und FORTH ist bereit für die Eingabe neuer Informatio 
nen, unterläßt es jedoch, seine Bereitschaftsmeldung "ok" auszu 

geben. QUIT löscht zwar den Return-Stack, läßt aber den Daten 
stack unverändert. 

PAGE - In Programmen taucht oft die Notwendigkeit auf, den Bild 
schirm zu löschen und auf einer neuen, "sauberen" Bildschirmseite 
mit der Ausgabe zu beginnen. Diese Funktion erfüllt das FORTH- 

Wort PAGE. Es hat keine Auswirkungen auf den Stack. (Auch dieses 

Wort ist kein Teil von FORTH 7 9, jedoch in MMSFORTH inplemen- 

tiert . ) 

Den Einsatz der bisher besprochenen FORTH-Wörter wollen wir an 
einem Programm verdeutlichen, das die Summe von 4 Zahlen berech- 
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net . Das Programm unterscheidet sich von den bisher geschriebenen 
in einem wichtigen Punkt. Wir gehen davon aus, daß es von einem 
Benutzer bedient wird, der keine Erfahrung im Umgang mit FORTH 
hat. Deshalb erwarten wir nicht, daß dieser Benutzer erst seine 
Daten auf den Stack legt, ehe er das Wort aufruft. Stattdessen 
erfragt das Programm seine Daten selbst und erklärt das Ergebnis 
seiner Berechnungen, ehe es dieses auf dem Bildschirm ausgibt. 
Wir sehen es in Abb . 3-1. Einen Beispiellauf für dieses Programm 

können Sie der Abb. 3-2 entnehmen. 


0 ( Beispielprogramm mit Benutzermeldungen und erklärendem Text ) 

1 : ADD4 PAGE 

2 . " Bitte bei jedem Fragezeichen eine Zahl eingeben " 

3 CR . " Eingabe mit RETURN abschliessen " CR 

4 # IN # IN # IN # IN CR 

5 + + + 

6 . " Die Summe der vier Zahlen lautet " CR 

7 . QUIT ; 

8 

9 

1 0 
1 1 
1 2 

1 3 

14 

15 


ABBILDUNG 3-1: Ein Programm, das im Dialog mit dem Benutzer 
Daten erfragt und sein Ergebnis beschriftet 


Bitte bei jedem Fragezeichen eine Zahl eingeben 
Eingabe mit RETURN abschliessen 
?4?5?6?7 

Die Summe der vier Zahlen lautet 

22 

ABBILDUNG 3-2: Beispiellauf des Programms ADD4 


Sehen wir uns das Programm einmal genauer an. In Zeile 1 teilen 
wir dem Compiler mit, welchen Namen wir dem neuen Programm geben 
wollen. Dieser lautet ADD4 . Als ersten Schritt in unserem Pro- 
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gramra löschen wir mittels PAGE den Bildschirm. In Zeile 2 sehen 
wir ein Anwendungsbeispiel für das Textausgabev*o"rt urTd die 
beiden Kommandos sorgen dafür, daß der Text "Bitte bei jedem 
Fragezeichen eine Zahl eingeben" auf Ihrem Bildschirm ausgegeben 
wird. Das erste Wort in Zeile 3 des Programms, CR, sorgt dafür, 
das der nächste Text auf einer eigenen Zeile beginnt. Auch ihn 
geben wir mittels . "fepwie " aus, und er lautet "Eingabe mit 
RETURN abschliessen " . Erneut sorgt ein CR dafür, daß nachfolgen 
de Informationen auf eine eigene Zeile zu stehen kommen. Jeder 
der vier #IN -Befehle in Zeile 4 bringt ein Fragezeichen auf den 
Bildschirm, danach wartet das System so lange, bis der Benutzer 
mittels RETURN eine Zahl eingegeben hat . Diesen Vorgang können 
wir der Abbildung 3-2 entnehmen. Die vom Benutzer eingegebenen 
Zahlen werden in der Reihenfolge auf den Stack gepusht, d.h., die 
zuletzt eingegebene Zahl befindet sich zuoberst auf dem Stack. 
Die drei +-Wörter in Zeile 5 entfernen nun diese vier Zahlen vom 
Stack und ersetzen sie durch ihre Summe. Zeile 6 sorgt dafür, daß 
der Text "Die Summe der vier Zahlen lautet" auf dem Bildschirm 
erscheint. Die Summe selbst geben wir allerdings auf einer neuen 
Zeile aus, weswegen als letztes Wort in Zeile 6 noch ein CR 
steht. Die Ausgabe der Summe besorgt in Zeile 7 das Punktkomman 
do . Schließlich beenden wir unser Programm mit QUIT, ohne daß bei 
Beendigung die Bereitschaftsmeldung "ok" ausgegeben wird. 

SPACE - Manchmal wollen wir in unseren Text Leerzeichen einfü- 
gen . Dies bewerkstelligt das FORTH-Wort SPACE. SPACE ist also 
nichts anderes als eine Abkürzung für . " " . Mit SPACE kann man 

Daten auf dem Bildschirm und im Text positionieren. Wir werden 
aber noch andere und bequemere Arten zur Formatierung von Ausga 
bedaten kennenlernen. SPACE hat keine Auswirkungen auf den Stack. 

SPACES - Das FORTH-Wort SPACES entfernt die oberste Zahl vom 
Stack und gibt eine entsprechende Zahl von Leerzeichen aus. Die 
Stack-Relation lautet 


n 


- — > 


(3-3) 


Ein Beispiel : 


6105. SPACES . (RETURN) 


(3-4) 


1 00 
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Dieses Programm liefert folgendes Ergebnis: 

5 6 ok (3-5) 

Wie Sie sehen, stehen zwischen der 5 und der 6 insgesamt 10 
Leerzeichen . 

PTC - Manchmal wollen wir Informationen an einer bestimmten Stel 
le am Bildschirm erscheinen lassen. Sicher ist Ihnen schon die 
Schreibmarke oder der Cursor auf Ihrem Bildschirm aufgefallen; 
ähnlich wie der Kugelkopf bei einer Kugelkopfschreibmaschine gibt 
der Cursor an, an welcher Stelle auf dem Bildschirm das nächste 
Zeichen erscheint, das Sie über Ihre Tastatur eingeben. Mit dem 
FORTH-Wort PTC können Sie diesen Cursor positionieren. Dazu wird 
der Bildschirm in Zeilen und Spalten unterteilt. PTC entfernt die 
obersten zwei Einträge auf dem Stack. Das oberste Stack-Element 
gibt die Spalte an, während das nächste Stack-Element die Zeilen 
nummer angibt. Sehen Sie zuerst im Bedienungshandbuch Ihres Com 
puters nach, um herauszufinden, über wieviel Zeilen und Spalten 
Ihr Bildschirm verfügt. Sie sollten diese Werte in einem Programm 
auf keinen Fall überschreiten. Die Stack-Relation für das Wort 
PTC lautet 


n, n„ — > 


(3-6) 


Wenn wir also eingeben: 


10 6 PTC . " Gruess Gott " 


(3-7) 


dann wird die Meldung "Gruess Gott" 
ausgegeben. Das Wort PTC ist kein 
findet sich aber in MMSFORTH. 


auf Zeile 10 und Spalte 6 
Bestandteil von FORTH 79 , 


101 



3 Elementare Ein- und Ausgabeoperationen 


3 . 2 Druckausgabe 


Die soeben besprochenen Beispielprogramme konnten ihre Ausgaben 
nur auf dem Bildschirm machen. Verfügen Sie über einen Drucker, 
so werden Sie diesen natürlich einsetzen wollen. Zwar ist in 
FORTH-79 kein spezielles Wort für Druckerausgabe vorgesehen, die 
meisten FORTH-Systeme verfügen aber über Kommandos, mit denen man 
Informationen am Drucker ausgeben kann. Wir besprechen hier die 
einschlägigen Kommandos des MMSFORTH-Systems . Diese Wörter oder 
ähnlich funktionierende werden wohl auch eines Tages zum Bestand 
teil von FORTH-79 gemacht. 

PRINT - Das Wort PRINT sorgt dafür, daß Ausgaben, die normaler 
weise auf den Bildschirm gehen, auf dem Drucker erfolgen. PRINT 
läßt den Stack unberührt. Bei der Dateneingabe erscheinen die 
eingegebenen Daten normalerweise auch auf dem Bildschirm. Je nach 
der Arbeitsweise Ihres Systems kann es sein, daß PRINT keinen 
Einfluß auf die Darstellung von Eingabedaten hat. Diese erschei 
nen nach wie vor auf dem Bildschirm und gelangen nicht auf den 
Drucker. Dafür werden alle Proqr am maus gaben auf den Drucker ge 
schickt und sind auf der Konsole nicht mehr zu sehen. 

PCRT - Das FORTH-Wort PCRT funktioniert genau wie PRINT, legt 
aber Programmausgaben zusätzlich auch auf den Bildschirm. PCRT 
läßt den Stack unverändert. Beachten Sie, daß PCRT keine Auswir 
kung auf die Bildschirmdarstellung hat, sondern lediglich zusätz 
lieh eine Druckausgabe bewirkt. 

Sie sollten die Wörter PRINT und PCRT nicht anwenden, wenn an Ihr 
System kein Drucker angeschlossen ist. In diesem Fall kann es 
sein, daß sich Ihr Computer "aufhängt" und Sie gezwungen sind, 
das System (unter Umständen mit Datenverlust) neu zu starten. 

CRT - Mit dem MMSFORTH-Kommando CRT wird die Wirkung von PCRT und 
PRINT aufgehoben. Nach Ausführung von CRT wird die Druckausgabe 
beendet, und alle Datenausgaben gehen wieder auf den Bildschirm. 

Die meisten Kommandos, die wir im ersten Teil des Kapitels be 
sprochen haben, funktionieren auch auf dem Drucker. Man kann also 
etwa mit PAGE den Drucker veranlassen, das Papier auf den Anfang 
der nächsten Seite vorzuschieben. Die genaue Funktionsweise kann 
jedoch von System zu System variieren. Spielen Sie deshalb ein 
fach mit diesen Anweisungen etwas herum. 
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3.3. Der ASCII-Code 


In Ihrem Rechner werden alle Informationen in Form von binären 
Zahlen gespeichert. Dies ist die sog. Int erndar Stellung Dennoch 
kann der Computer auch mit Buchstaben und anderen Symbolen umge 
hen . Wir wissen ja, daß wir ihm FORTH-Wörter eingeben können und 

daß er in der Lage ist, Textinformationen auf dem Bildschirm oder 
Drucker auszugeben. Der Computer kann mit diesen Symbolen arbei 
ten, weil für jedes eine Zahlenentsprechung, ein sog. Code ver 
einbart wurde. Die Ein-/Ausgabegeräte Ihres Systems können diese 
Codes generieren bzw. verstehen. Angenommen, dem Buchstaben A ist 
die Codezahl 65 zugewiesen. Wenn Sie auf Ihrer Tastatur die Taste 
r.it dem A niederdrücken, dann wird die Zahl 65 in binärer Form an 
den Computer gesendet. Ähnlich verhält es sich bei der Ausgabe 
von Informationen: Wenn der Computer ein A ausgeben will, dann 

gibt er tatsächlich die 65 in binärer Form von sich. Das Terminal 
tzv. der Drucker decodieren diese Zahl und erzeugen daraus den 

gewünschten Buchstaben. 

Damit Computer mit Terminals und Druckern von verschiedenen Her 

Stellern Zusammenarbeiten können, muß man sich auf einen einheit 
liehen Code festlegen. Es sind zwar mehrere Codevorschriften im 
Crlauf, die verbreitetste ist jedoch der sogenannte ASCII-Code. 
Diese Abkürzung kommt von "American Standard Code for Information 
Ir . terchange " . (Amerikanischer Standardcode für Informationsaus 
tausch) Tabelle 3-1 gibt Ihnen einen Überblick über den ASCII- 
Dode . 




TABELLE 3-1. 

ASCII-CODE 



Dezimal 

Zeichen 

Dezimal 

Zeichen 

Dezimal- 

Zeichen 

wert 


wert 


wert 


0 

NUL 

47 

/ 

94 

A 

1 

SOH 

48 

0 

95 


2 

STX 

49 

1 

96 

r 

3 

ETX 

50 

2 

97 

a 

4 

EOT 

51 

3 

98 

b 

5 

ENQ 

52 

4 

99 

c 

6 

ACK 

52 

5 

1 00 

d 

"J 

BEL 

54 

6 

101 

e 

8 

BS 

55 

7 

1 02 

f 


1 03 
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TABELLE 3-1: ASCII-Code (Forts.) 


9 

HT 

56 

8 

103 

1 0 

LF 

57 

9 

104 

11 

VT 

58 


105 

12 

FF 

59 

} 

106 

1 3 

CR 

60 

< 

107 

1 4 

SO 

61 

- 

108 

15 

SI 

62 

> 

109 

16 

DLE 

63 

7 

110 

1 7 

DC1 

64 

e 

111 

18 

DC2 

65 

A 

112 

19 

DC3 

66 

B 

113 

20 

DC4 

67 

C 

114 

21 

NAK 

68 

D 

115 

22 

SYN 

69 

E 

116 

23 

ETB 

70 

F 

117 

24 

CAN 

71 

G 

118 

25 

EM 

72 

H 

119 

26 

SUB 

73 

I 

120 

27 

ESC 

74 

J 

1 21 

28 

FS 

75 

K 

122 

29 

GS 

76 

L 

123 

30 

RS 

77 

M 

1 24 

31 

US 

78 

N 

125 

32 

Leerz . 

79 

0 

1 26 

33 

i 

80 

P 

127 

34 

II 

81 

Q 


35 

# 

82 

R 


36 

$ 

83 

S 


37 

% 

84 

T 


38 

& 

85 

U 


39 

— 

86 

V 


40 

( 

87 

w 


41 

) 

88 

X 


42 

•k 

89 

Y 


43 

+ 

90 

Z 


44 

i 

91 

[ 


45 

- 

92 

\ 


46 


93 

] 



Q 

h 

i 

j 

k 

1 

m 

n 

0 

P 


s 

t 

u 

V 

w 

X 

y 

z 

{ 

1 

} 

'S. 

DEL 
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Wie Sie sehen, gibt es im ASCII-Code auch Einträge, die nicht auf 
dem Bildschirm darstellbar sind. Hierbei handelt es sich um die 
ersten 26 Einträge in der ASCII-Tabelle; sie sind für sogenannte 
Steuerzeichen reserviert. Um ein Steuerzeichen einzugeben, muß 
man auf den meisten Terminals die CONTROL-Taste niederdrücken und 
gleichzeitig eine Buchstabentaste anschlagen. Ein gleichzeitiges 
Drücken der Tasten für CONTROL und A erzeugt dann den ASCII-Code 
1, CONTROL-B liefert den ASCII-Code 2 usw. Die ersten 26 ASCII- 
Zeichen erzeugen bei Ausgabe auf dem Bildschirm keine Zeichen, 
sondern stellen vielmehr Befehle an den Bildschirm oder andere 
periphere Geräte dar. So sorgt das ASCII-Zeichen 8 (das man mit 
tels CONTROL-H eingeben kann) dafür, daß sich der Cursor um eine 
Position nach links auf dem Bildschirm bewegt. Mittels ASCII 10 
erzeugt man einen Zeilenvorschub. Das ASCII-Zeichen 13 bewirkt 
einen Wagenrücklauf am Drucker; auf dem Bildschirm sorgt es da 
für, daß der Cursor (ohne Zeilenvorschub) an den Anfang der aktu 
eilen Zeile geht. Das ASCII-Zeichen Nummer 12 bewirkt einen For 
mularvorschub; es sorgt dafür, daß der Drucker das Papier an den 
Anfang der nächsten Seite transportiert. (Dies funktioniert na 
türlich nur, wenn der Drucker auf diese Steuerzeichen auch re 
agieren kann . ) 

Mit dem ASCII-Zeichen Nr. 27 hat es eine besondere Bewandtnis. Es 
ist das sog. Escape-Zeichen . Folgen von ASCII-Zeichen, die mit 
dem Zeichen Nr. 27 eingeleitet sind, werden auch als Escape-Se- 
quenzen bezeichnet. Diese braucht man oft, um Drucker und andere 
Peripheriegeräte zu steuern. Viele Graphikdrucker sind über Es- 
cape-Sequenzen programmierbar, so daß man per Programm Zeichnun 
gen auf diesen Graphikdruckern erstellen kann. Die ASCII-Codes 
für die Ziffern 0 bis 9 dürfen Sie nicht mit den Zahlen 0 bis 9 
verwechseln; die Ziffer 0 hat vielmehr die Codenummer 48 und die 
9 die Nummer 57. Die anderen Ziffernzeichen liegen dazwischen. 

Ursprünglich wurde der ASCII-Code für die Arbeit mit Fernschrei 
bern und ähnlichen Geräten entwickelt. Viele der Steuerzeichen 
wurden zur Steuerung dieser Geräte benötigt. Im nächsten Ab 
schnitt zeigen wir Ihnen, wie man diese Steuerzeichen zusammen 
mit Ausgabedaten von Computern einsetzen kann. 
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3 . 4 Formatierte Zahlen 

In diesem Kapitel erfahren Sie, wie man das Aussehen von Zahlen 
Informationen beeinflussen kann, wodurch die Ergebnisse Ihres 
Computers lesbarer werden. Man nennt diesen Vorgang das Formatie- 
ren von Zahlen. 


3.4.1 Datenfelder 


Man kann für eine Zahl eine bestimmte Anzahl von Stellen auf dem 
Bildschirm oder auf dem Drucker vorsehen; man spricht in diesem 
Zusammenhang von einem Datenfeld. FORTH richtet Zahlen in solchen 
Datenfeldern rechtsbündig aus. Das bedeutet, daß die letzte Zif 
fer der Zahl am rechten Rand des Feldes zu stehen kommt. Wenn wir 
ein Datenfeld mit 10 Stellen haben, in das wir eine dreistellige 
positive Zahl schreiben lassen, dann erscheinen vor dieser Zahl 7 
Leerstellen . 

.R - Mit dem FORTH-Wort .R können wir ein Datenfeld für die Zah 
lenausgabe festlegen. Das Wort benutzt die obersten zwei Stack- 
Einträge. Sie werden entfernt, wobei der erste Eintrag die Feld 
breite darstellt, der zweite Eintrag die auszugebende Zahl ist. 
Die Stack-Relation sieht folgendermaßen aus: 


n . n .. -> 

i 2 


(3-8) 


Wenn wir z.B. eingeben 

23 10 7 10 .R .R (RETURN) (3-9) 

dann erhalten wir das Ergebnis aus der Abb. 3-3, wobei leere 
Kästchen in diesem Diagramm für Leerstellen stehen. Sowohl die 23 
als auch die 7 werden rechtsbündig in Datenfeldern ausgegeben, 
die jeweils eine Breite von 10 Stellen haben. Wir können natür 
lieh auch für jede Zahl eine andere Feldbreite angeben. 
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IIIIIIIIII7I 


I 2| 31 


ABBILDUNG 3-3: Zwei Integers in einem Datenfeld 

von jeweils 10 Stellen Breite 


Durch die Angabe von Datenfeldern können wir die Druckausgabe von 
Zahlen lesbarer gestalten. Die auszugebenden Daten werden natür 
lieh in den meisten Fällen erst vom Programm berechnet. Man weiß 
also nicht von vornherein, wie viele Stellen das Ergebnis haben 
wird. Deshalb kann es Vorkommen, daß ein Ergebnis größer ist, als 
die vorgesehene Feldbreite erlaubt. In diesem Fall vergrößert 
FORTH automatisch das Datenfeld, so daß die Zahl noch hineinpaßt. 
Beachten Sie, daß .R zur Zeit noch kein Teil von FORTH-79 ist. Es 
ist jedoch in MMSFORTH und anderen FORTH-Systemen enthalten. Las 
sen Sie uns als Beispiel ein eigenes Wort schreiben, das Zahlen 
in ein Datenfeld von 15 Stellen Breite ausgibt: 


.15 15 .R 


(3-10) 


Das Wort hat den Namen .15. Es pusht als erstes die 15 auf den 
Stack; anschließend wird .R aufgerufen. Somit wird die Zahl, die 
vor Ausführung des Wortes .15 auf dem Stack war, in einem Daten 
feld der Breite 15 ausgegeben. 


3.4.2 Zahlenausgabe mit Maske 


Oft wollen wir beim Ausgeben von Zahlen noch andere Symbole mit 
in unsere Ausgabe auf nehmen. Bei Geldbeträgen kann es beispiels 
weise nötig sein, ein Dezimalkomma zu drucken. FORTH läßt auch 
diese Möglichkeit zu; man bedient sich dazu der sog. Ausgabemas- 
ken. Zum Einsatz dieser Möglichkeit brauchen wir jedoch mehrere 
Wörter. Diese werden wir im folgenden Abschnitt darstellen. 

Ehe wir uns der Erörterung von Ausgabemasken zuwenden, wollen wir 
jedoch einen kurzen Exkurs machen und noch einmal über doppelt 
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genaue Zahlen reden. Diese Zahlen haben wir bereits in Abschnitt 
2-5 kennengelernt. Operationen mit diesem Zahlentyp werden wir in 
einem der folgenden Kapitel besprechen. Hier erörtern wir nur 
einige grundlegende Fakten, die für den Umgang mit Ausgabemasken 
notwendig sind. Die elementaren Befehle für die Ausgabe mit Maske 
arbeiten nämlich nur mit doppelt genauen Integers . (Wir wollen 
für den Augenblick davon ausgehen, daß diese Zahlen alle positiv 
sind.) Wir hätten aber ganz gern auch einfach genaue Integers mit 
einer Druckmaske ausgegeben. Wir wollen einmal sehen, wie dies 
möglich ist. Eine einfach genaue Zahl benötigt - wie Sie bereits 
wissen - nur eine Stack-Position, während zur Speicherung von 
doppelt genauen Zahlen zwei Stack-Einträge benötigt werden. Die 
sen Sachverhalt illustrieren wir in Abb . 3-4. Wie Sie sehen, ha 
ben wir den obersten Stack-Eintrag in Abb. 3-4b mit MSB be 
schriftet; diese Abkürzung steht für "most signifikant bit" und 
bezieht sich auf das höchstwertige Bit der Zahl. Entsprechend ist 
die zweite Stack-Position mit LSB (Abk. für "least signifikant 
bit", niedrigstwertiges Bit der Zahl) beschriftet. 

Bei der Arbeit mit Dezimalzahlen würden wir anstelle von höchst 
wertigen und niedrigstwertigen Bits von höchstwertigen und nie 
drigstwertigen Dezimalstellen sprechen. Machen wir uns das am 
Beispiel der Dezimalzahl 356789 klar. Ihre drei höchstwertigen 
Ziffern sind 356, während ihre drei niedrigstwertigen 789 sind. 
Nehmen wir nun an, daß wir die dreistellige Zahl 789 mit 6 Stel 
len schreiben wollen. 

Wir wollen also die Ziffernfolge 000789 ausgeben. In diesem Fall 
haben wir eine Zahl, deren erste drei höchstwertige Stellen 0 
sind. Nun wollen wir sehen, wie wir eine einfach genaue positive 
Integer als oberstes Stack-Element in eine doppelt genaue umwan 
dein können. Dies geht ganz einfach dadurch, daß wir eine 0 auf 
den Stack pushen. Jetzt haben wir eine doppelt genaue Integer, 

deren höchstwertige Stellen allesamt 0 sind. Von ihrem Betrag her 
ist diese doppelt genaue Zahl natürlich immer noch die gleiche 

wie die vorherige einfach genaue Zahl. Das gilt allerdings nur, 

wenn die Zahl positiv ist . 

Die meisten Computer verwenden nämlich ein binäres Zahlensystem, 
bei dem das höchstwertige Bit (MSB) dazu dient mitzuteilen, ob 

die Zahl positiv oder negativ ist. Wenn wir jetzt bei einer nega 
tiven Zahl einfach 0 auf den Stack pushen, um sie doppelt genau 
zu machen, dann erhalten wir dadurch die falsche Zahl. Um mit 
Zahlen zu arbeiten, die sowohl positiv als auch negativ sein kön- 
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I I leinfach genaue Zahl 

I I* 

I I 

I 1 

I I 

I 1 

I I 

I 1 

I . I 
I . I 
I . I 
I I 


I 1 

I MSB I 

I 1 

I LSB I 

I 1 

I I 

I 1 

I I 

I 1 

I . I 
I . I 
I . I 
I I 


doppelt genaue 
Zahl 


a) 


b) 


ABBILDUNG 3-4: Der Stack a) mit einer einfach genauen Zahl 

b) mit einer doppelt genauen Zahl 


nen, müssen wir deshalb das folgende allgemeine Verfahren anwen 
den. Zuerst duplizieren wir mittels DUP die einfach genaue Zahl 
auf den Stack. Dann ersetzen wir mittels ABS diese Zahl durch 
ihren Absolutbetrag. Wenn wir jetzt eine 0 auf den Stack pushen, 
dann haben wir den korrekten Absolutbetrag in Form einer doppelt 
genauen Zahl. Die ursprüngliche einfach genaue Zahl befindet sich 
immer noch auf dem Stack, und zwar an dritter Position. Wir kön 
nen sie dazu benutzen, das Vorzeichen der Ausgangszahl zu bestim 
men. Wie man diese Prozedur genau in FORTH implementiert, zeigen 
wir Ihnen noch später in diesem Abschnitt. Erst wollen wir uns 
einmal den Kommandos für die Ausgabe mit Maske zuwenden. 

<# und #> - Die FORTH-Kommandos <# und #> werden für die Ausgabe 
von Zahlen mit Ausgabemaske verwendet. Ehe wir ihre Anwendung 
erörtern können, müssen wir jedoch noch ein paar andere Wörter 
einführen. Der Grundgedanke bei der Verwendung dieser beiden Wör 
ter ist jedoch ganz einfach. Eine Formatanweisung mit diesen bei 
den Wörtern hat immer folgenden Aufbau: 


<# Formatanweisungen #> 


(3-11 ) 
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Bei Ausführung eines Befehls in dem Format aus Abb . 3-11 wird die 

doppelt genaue Zahl an oberster Stack-Position vom Stack ent 
fernt . Die Formatanweisungen haben die Form einer Folge von 
ASCII-Zeichen, eines sog. Zgi^hgngi^ing^^ Jedes Zeichen dieses 
Strings stellt eine einzelne Ziffer der auszugebenden Zahl oder 
ein anderes auszugebendes Zeichen dar. Nach Ausführung einer 
Anweisung von der Form 3-11 finden sich die ASCII-Codes nicht auf 
dem Stack, sondern in aufeinanderfolgenden Speicherstellen des 
Arbeitsspeichers. Als letztes pusht eine Formatanweisung von der 
Form 3-11 zwei einfach genaue Integers auf den Stack. Eine stellt 
die Startadresse dar, an der sich die soeben gespeicherten ASCII- 
Zeichen befinden; die zweite gibt an, wie viele Zeichen gespei 
chert sind (d.h., die Anzahl der Zeichen, die gedruckt werden 
sollen) . Letztere Zahl befindet sich an oberster Stack-Position. 
Die Stack-Relation für eine Anweisung der Form 3-11 lautet daher 


n i n 2 > °addr "länge 

Dies gilt für einfach genaue Zahlen, wobei n A die ursprüngliche 
einfach genaue Integer und A gleich 0 ist . Bei doppelt genauen 
Zahlen sieht die Stack-Rela?ion so aus: 


d — > n n , „ (3-1 2b) 

addr lange 

Wenden wir uns nun wieder der Anweisung 3-11 zu. Die Formatanwei 
sung zwischen den beiden FORTH-Wörtern <# und #> werden von links 
nach rechts durchgegangen. Dabei gilt die erste im String ent 
haltene Formatanweisung für die letzte Stelle der Zahl. Die zwei 
te Formatanweisung bezieht sich auf die vorletzte Stelle usw. 
(Die Formatanweisungen müssen sich nicht notwendigerweise nur auf 
Stellen in der auszugebenden Zahl beziehen. Wir können auch ande 
re Symbole, wie z.B. ein Dezimalkomma, mit aufnehmen.) Jetzt müs 
sen wir nur noch erfahren, welche FORTH-Kommandos innerhalb die 
ser Formatanweisungen stehen können. 

# - Mit dem # manipulieren wir einzelne Stellen in einer Zahl. 

Bei Ausführung einer Anweisung wie in 3-1 1 wird ja eine doppelt 

genaue Integer von oberster Stack-Position letztendlich in eine 
Folge von ASCII-Zeichen umgewandelt, wobei je ein ASCII-Zeichen 
für eine Ziffer steht. (Wenn FORTH im Dezimalsystem arbeitet. 


110 



3 Elementare Ein- und Ausgabeoperationen 


dann handelt es sich hierbei um Dezimalziffern. Haben wir Basis 
16 mittels HEX gewählt, dann sind es Hexadezimalziffern usw.) Für 
die vorliegende Diskussion wollen wir annehmen, daß es sich um 
Dezimalzahlen handelt. Das Wort # (das nur zwischen <# und #> 
stehen kann) nimmt die niedrigstwertige Dezimalstelle und ent 
fernt sie von der Zahl. Auch die Tatsache, daß die Zahlen intern 
im Binärsystem gespeichert sind, soll uns hier nicht stören. 
Anschließend wird das ASCII-Zeichen für diese Stelle im Arbeits 
Speicher abgelegt. Wir können das Wort # nur zusammen mit positi 
ven Zahlen verwenden. (Vergleichen Sie die Ausführungen über 
negative Zahlen am Anfang dieses Abschnitts.) Denken Sie daran, 
daß bei jeder Ausführung eines #-Wortes eine Dezimalstelle von 
der Zahl entfernt wird. 

#S - Das FORTH-Wort #S wandelt eine doppelt genaue Zahl in eine 
Folge von ASCII-Zeichen um. Jedes dieser Zeichen stellt eine 
Dezimalstelle dieser Zahl dar. Auch #S sollte nur mit doppelt 
genauen positiven Integers verwendet werden. Ist die Zahl 0, dann 
wird nur eine einzelne Null (als Ziffer) ausgegeben. Ebenso wie 
bei # darf auch #S nur zwischen den Wörtern <# und #> stehen. 
Beachten Sie, daß # nur eine einzige Dezimalstelle umwandelt, 
während #S die ganze verbleibende Zahl in die entsprechende Folge 
von ASCII-Zeichen konvertiert. 

HOLD - Mit dem FORTH-Kommando HOLD können wir den ASCII-Code ei 
nes beliebigen Symbols in den String von ASCII-Zeichen mit auf 
nehmen, der unsere Zahl darstellt. HOLD entfernt die oberste ein 
fach genaue Integer vom Stack und nimmt das entsprechende Zeichen 
der ASCII-Tabelle in den Zeichenstring mit auf. Die Stack-Rela 
tion des Wortes lautet: 


n 


— > 


(3-13) 


Beachten Sie, daß auch HOLD nur zwischen den Wörtern <# und #> 
stehen kann. 

Als Beispiel für die bisher vorgestellten FORTH-Wörter wollen wir 
ein neues Wort definieren, das eine einfach genaue positive Inte 
ger so ausgibt, daß ein Dezimalkomma vor den letzten beiden Stel 
len der Zahl steht. Das Einfügen eines Dezimalkommas kann aus 
mehreren Gründen erwünscht sein. Wenn Sie z.B. Programme schrei 
ben, die mit Geldbeträgen umgehen, dann werden Sie die Mark- und 
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Pfennigbeträge kenntlich machen wollen. Da wir bisher nur mit 
Integers arbeiten können, können wir in unseren Programmen auch 
keine Zahlen mit Nachkommasteilen eingeben. Wir müssen dann den 
Betrag 34,50 DM als die Zahl 3450 eingeben und intern verarbei 
ten. Beim Ausgeben der Geldbeträge sollte das Dezimalkomma jedoch 
wieder erscheinen. Unser selbstdefiniertes Wort leistet genau das 
Gewünschte: Es gibt eine Zahl aus, wobei sich vor den letzten 

beiden Stellen der Zahl ein Dezimalkomma befindet. Seine Defini 
tion : 


: WRD 0 <# # # 44 HOLD #S #> ; (3-14) 

Sehen wir uns das neue Wort WRD einmal genauer an. Wir gehen da 
von aus, daß sich eine einfach genaue Integer in oberster Stack- 
Position befindet. Deshalb pushen wir erst einmal die 0 auf den 
Stack, um daraus eine doppelt genaue Integer mit demselben Betrag 
zu machen (erinnern Sie sich noch?) . Jetzt kommen die Befehle an 
die Reihe, die zwischen <# und #> liegen. Das erste fentfernt die 
niedrigstwertige Dezimalstelle von unserer doppelt genauen Zahl 
auf dem Stack. Daraufhin wird das ASCI I-Zeichen generiert, das 
dieser Zahl entspricht, und im Speicher abgelegt. Das zweite # 
sorgt für dieselbe Prozedur mit der niedrigstwertigen Dezimal 
stelle der verbleibenden Zahl. Als nächstes legen wir die Zahl 44 
auf den Stack. HOLD entfernt sie wieder und sorgt dafür, daß im 
String der ASCI I-Zeichen eine 44 mit abgespeichert wird. Der 
ASCII-Tabelle können Sie entnehmen, daß die 44 der interne Code 
für das Komma ist. 

Wir haben also jetzt in unseren Ergebnisstring das Dezimalkomma 
geschrieben. Als nächster Befehl ist #S an der Reihe. Dieses Wort 
wandelt die ganze verbleibende doppelt genaue Zahl in einen 
String von ASCII-Zeichen um, eins für jede Dezimalstelle. Nach 
Ausführung von #> steht also der komplette String im Arbeitsspei 
eher. Außerdem haben wir ein Dezimalkomma vor die beiden letzten 
Stellen der Zahl eingefügt. Die Originalzahl ist vom Stack ver 
schwunden. An ihrer Stelle sind zwei neue Zahlen auf den Stack 
gekommen. Diese stellen die Startadresse des Ergebnisstrings im 
Arbeitsspeicher dar, den wir eben erzeugt haben; die zweite Zahl 
gibt an, wieviele Zeichen dieser String enthält. Das Ergebnis 
steht aber nach wie vor im Arbeitsspeicher, ist aber noch nicht 
zu sehen. Dafür - für die Anzeige eines mit Formatmaske erzeugten 
Ziffernstrings - benötigen wir noch ein eigenes Kommando. 
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TYPE - Mit dem FORTH-Wort TYPE werden ASCI I-Zeichen ausgegeben, 
die im Arbeitsspeicher des Computers gespeichert sind. TYPE sorgt 
dafür, daß diese Zeichen am Ausgabegerät (dem Terminal oder dem 
Drucker) erscheinen. Dazu entfernt es zwei Zahlen vom Stack. Der 
oberste Stack-Eintrag gibt an, wieviele Zeichen TYPE an das Aus 
gabegerät übertragen soll. Die zweite Zahl auf dem Stack stellt 
die Anfangsadresse dar, ab der sich der auszugebende String im 
Arbeitsspeicher des Computers befindet . Die Stack-Relation für 
TYPE lautet : 


n aäflr n lange 


(3-15) 


Wir können jetzt unser 
Ergebnis auch noch auf 
lediglich den Namen der 
TYPE mit an : 


Programm 3-14 so verändern, daß es sein 
dem Bildschirm ausgibt . Dazu ändern wir 
Definition und fügen das zusätzliche Wort 


: WRTT 0 <# # # 44 HOLD #S #> TYPE ; (3-16) 

(Streng genommen ist es gar nicht nötig, der Definition einen 
neuen Namen zu geben.) Nachdem FORTH die neue Definition 3-16 
compiliert hat, können wir eingeben: 


15756 WRTT (RETURN) 


(3-17) 


und erhalten als Ausgabe auf unserem Bildschirm: 

157,56 ok 

SIGN - Die bisher geschriebenen Programme funktionieren nur mit 
positiven Zahlen. Jetzt wollen wir einmal sehen, wie wir Zahlen 
ausgeben können, die sowohl positiv als auch negativ sein können. 
Das FORTH-Wort SIGN, das nur zwischen den Wörtern <# und #> ste 
hen kann, erzeugt den ASCII-Code für ein Minuszeichen und nimmt 
ihn in den ASCII-String mit auf, falls die Zahl an der obersten 
Stack-Position negativ ist. Ist sie hingegen positiv, dann tut 
SIGN nichts. Jetzt können wir ein Programm schreiben, das ebenso 
wie die bisherigen eine Zahl mit Dezimalkomma ausgibt, zusätzlich 
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aber noch ein Minuszeichen vor die Zahl stellt, falls diese nega 
tiv ist . 


: WRTTN DUP ABS 0 <# # # 44 HOLD #S 

ROT SIGN #> TYPE ; (3-18) 


Sehen wir uns das neue Wort einmal genauer an. DUP dupliziert die 
auszugebende Zahl. Als nächstes wird die Zahl mittels ABS durch 
ihren Absolutwert ersetzt. Wir haben jetzt den Betrag der Origi 

nalzahl an oberster Stack-Position, falls die Originalzahl nega 
tiv war, und ansonsten die unveränderte Originalzahl. Dann machen 
wir aus dieser Zahl durch pushen von 0 eine doppelt genaue Zahl. 
Als nächstes sehen wir den Befehl <#. Dieser leitet die Verarbei 
tung der doppelt genauen Zahl an oberster Stack-Position ein. Die 
Befehlsfolge # #44 HOLD #S wandelt diese Zahl ebenso wie das 
bereits bekannte Beispiel 3-16 in eine Folge von ASCII-Zeichen 

um. Die 0 und der Absolutwert der eingesetzten Zahl befinden sich 
immer noch auf dem Stack. Jetzt kommt der Befehl ROT an die Rei 
he. Wie Sie sehen, können also auch "normale" FORTH-Wörter zwi 

sehen <# und #> stehen. Dadurch wird der dritte Stack-Eintrag an 
die oberste Stelle gebracht. Dabei handelt es sich aber um die 
Originalzahl, die ausgegeben werden soll. SIGN entfernt diese 
Zahl vom Stack. Falls sie negativ ist, dann fügt das Wort SIGN 
den ASCII-Code für das Minuszeichen vor den Ergebnisstring ein. 
Ist die fragliche Zahl positiv, dann hat SIGN keinerlei Auswir 

kung. Die Umwandlung der Zahl wird wie üblich mit #> abgeschlos 
sen . Jetzt befinden sich Startadresse und String-Länge auf dem 
Stack. TYPE holt sich diese beiden Einträge und sorgt dafür, daß 
die angegebene Anzahl von Zeichen ab der zur Verfügung gestellten 
Startadresse auf dem Bildschirm ausgegeben wird. Die Befehle 
zwischen <# und <# werden also - wie üblich - von links nach 
rechts abgearbeitet. Das erste ausgeführte Wort ist also #, wäh 
rend das letzte SIGN ist. Das Kommando TYPE gibt den erzeugten 
String in umgekehrter Reihenfolge aus: das Ergebnis des zuletzt 

ausgeführten Befehls wird als erstes gedruckt. Deswegen bewirkt 
das Wort SIGN, welches das letzte Kommando zwischen <# und #> 
ist, daß ein Minuszeichen vor die Zahl gedruckt wird, vorausge 
setzt, diese ist negativ. 

Als letztes Beispiel wollen wir (3-18) so verändern, daß die Zahl 
mit einem Dollar Zeichen nach dem Vorzeichen ausgegeben wird. Das 
veränderte Wort sieht nunmehr folgendermaßen aus: 
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: WRT$ DUP ABS 0 <# # # 44 HOLD #S 
36 HOLD ROT SIGN #> TYPE ; 


(3-19) 


Im wesentlichen handelt es sich hierbei um die gleiche Definition 
wie in (3-18), außer daß der Befehl 36 HOLD hinzugekommen ist. 
Wie Sie der ASCII-Tabelle entnehmen können, ist die Code-Zahl des 
Dollarzeichens 36. Deshalb wird das ASCII-Zeichen in die Zeichen 
kette mit aufgenommen und taucht dort vor dem Minuszeichen auf. 


3 . 5 Übungsaufgaben 


Überprüfen Sie bei den folgenden Aufgaben alle Programme und 

selbstdefinierten Wörter, indem Sie sie auf Ihrem Computer laufen 

lassen . 

3-1 Was bedeutet der Begriff "Text"? 

3-2 Schreiben Sie ein FORTH-Wort, das Ihre Anschrift auf dem 

Bildschirm ausdruckt. 

3-3 Schreiben Sie ein FORTH-Wort, das den Durchschnitt von 4 

Zahlen berechnet. Das Wort soll den Benutzer zur Eingabe der 
Werte auffordern und anschließend warten, bis der Benutzer 
sie zur Verfügung gestellt hat. Quotient und Divisionsrest 
des Durchschnitts sollen dann mit entsprechenden Erklärungen 
auf dem Bildschirm ausgegeben werden. 

3-4 Ändern Sie die Definition von Aufgaben 3-3 so ab, daß die 

Bereitschaftsmeldung "ok" nicht ausgegeben wird. 

3-5 Ändern Sie die Definition von Aufgabe 3-4 so ab, daß Quo 

tient und Divisionsrest auf verschiedenen Zeilen ausgegeben 
werden . 

3-6 Ändern Sie mittels SPACES die Definition von Aufgabe 3-5 so, 
daß genügend Zwischenraum zwischen den Ergebnissen steht. 

3-7 Wiederholen Sie Aufgabe 3-2, und senden Sie das Ergebnis 
direkt an Ihren Drucker. 
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3-8 Wiederholen Sie Aufgabe 3-3, und senden Sie dasErgebnis 

direkt an Ihren Drucker. 

3-9 Wiederholen Sie Aufgabe 3-4, und senden Sie dasErgebnis 

direkt an Ihren Drucker. 

3-10 Wiederholen Sie Aufgabe 3-5, und senden Sie dasErgebnis 

direkt an Ihren Drucker. 

3-11 Wiederholen Sie Aufgabe 3-6, und senden Sie dasErgebnis 

direkt an Ihren Drucker. 

3-12 Was ist ein ASCII-Code? 

3-13 Schreiben Sie eine Tabelle mit den ASCII-Codes für die 
Steuerzeichen . 

3-14 Angenommen, der ASCII-Code eines Großbuchstabens befindet 
sich an oberster Stack-Position. Schreiben Sie ein FORTH- 
Wort, das diese Zahl in den ASCII-Code für einen entspre 
chenden Kleinbuchstaben umwandelt . 

3-15 Wiederholen Sie Aufgabe 3-14, wandeln Sie diesmal jedoch 
einen Kleinbuchstaben in einen entsprechenden Großbuchstaben 
um . 

3-16 Was ist ein Datenfeld? 

3-17 Schreiben Sie ein FORTH-Wort, das die beiden obersten Stack 
einträge ausgibt . Die Zahl an oberster Stack-Position sollte 
in einem Feld von 15 Zeichen Breite rechtsbündig erscheinen. 
Die zweite Zahl soll rechtsbündig in einem 25 Zeichen brei 
ten Feld stehen. 

3-18 Erörtern Sie das Prinzip der Zahlenausgabe mit Maske. 

3-19 Legen Sie dar, wie man eine positive einfach genaue Integer 
in eine entsprechende doppelt genaue Integer umwandeln kann. 

3-20 Schreiben Sie ein FORTH-Wort, das eine fünfstellige Zahl mit 
einer Leerstelle nach den ersten zwei Ziffern druckt. Die 
Zahl soll positiv sein. 
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3-21 Schreiben Sie ein FORTH-Wort, das eine fünfstellige Zahl mit 
der Beschriftung "DM" nach den ersten drei und mit "Pfennig" 
nach den letzten beiden Stellen ausgibt. Die Zahl soll 

positiv sein. 

3-22 Kann man eine negative einfach genaue Integer in eine dop 

pelt genaue Integer verwandeln, indem man eine 0 auf den 

Stack pusht? 

3-23 Wiederholen Sie Aufgabe 3-20, gehen Sie diesmal aber nicht 
davon aus, daß die Zahl positiv ist. Wenn sie negativ ist, 

dann sollten Sie ein Minuszeichen vor die Zahl drucken. 

3-24 Wiederholen Sie Aufgabe 3-21, gehen Sie aber nicht davon 

aus, daß die Zahl positiv ist. Wenn sie negativ ist, dann 

sollten Sie ein Minuszeichen vor die Zahl drucken. 

3-25 Wiederholen Sie Aufgabe 3-20, schicken Sie das Ergebnis aber 

direkt an den Drucker. 

3-26 Wiederholen Sie Aufgabe 3-21, schicken Sie das Ergebnis aber 

direkt an den Drucker. 
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4 Programmsteuerung - Strukturiertes Programmieren 


Die bisher betrachteten FORTH-Programme haben einfach einzelne 
Wörter der Reihe nach ausgeführt. Wesentlich leistungsfähigere 
Programme kann man schreiben, wenn es möglich ist, in einem Pro 
gramm verschiedene Zweige zu verfolgen. Bei solchen Programmen 
entscheidet der Computer aufgrund eines Entscheidungsprozesses 
selbst, welcher Zweig im Programm verfolgt werden soll. Diesen 
Entscheidungsprozeß können Sie in Ihrem Programm bestimmen. Die 
Entscheidung kann etwa davon abhängen, ob eine Zahl positiv oder 
negativ ist. Möglichkeiten, mit denen solche Verzweigungen er 
reicht werden können, betrachten wir in diesem Kapitel . 

Oft ist es auch wünschenswert, daß ein Programm eine Folge von 
Arbeitsschritten wiederholt ausführt (sog. Programmschleife) . Die 
Techniken, die dies bewirken, werden wir ebenfalls im vorliegen 
den Kapitel kennenlernen. 

Schließlich gibt es noch Methoden zur Programmierung, die Pro 
gramme mit Verzweigungen und Schleifen weniger fehleranfällig und 
leichter korrigierbar machen. Die hierzu eingesetzte Methode 
trägt den Namen "Strukturierte Programmierung" und wird ebenfalls 
Gegenstand dieses Kapitels sein. 


4 . 1 Logische Bedingungen 


In FORTH werden - ebenso wie in anderen Programmiersprachen - 
Entscheidungen in Abhängigkeit davon getroffen, ob eine Variable 
den Wert "wahr" oder "falsch" hat. Wir können beispielsweise 
überprüfen, ob die oberste Zahl auf dem Stack positiv ist . Nach 
dieser Überprüfung wird die Zahl vom Stack entfernt und darauf 
entweder eine Eins abgelegt, falls die Zahl positiv war, oder im 
Falle eines negativen Eintrags eine Null. Diese Eins bzw. Null 
bezeichnet man auch als Flag. Die Eins steht für den Wahrheits 
wert "wahr", während die Null "falsch" darstellt. Die Flag-Werte 
0 und 1 sind gewöhnliche einfach genaue Integers. Es gibt also 
keine Möglichkeit, den Flag-Wert 1 von einer Eins zu unterschei 
den, die Sie auf dem Stack abgelegt haben. Spätere Abschnitte 
dieses Kapitels werden sich der Frage widmen, wie man in einem 
Programm Verzweigungen veranlassen kann, je nachdem, welchen Wert 
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ein Flag an oberster Stack-Position hat. Dieser Abschnitt führt 
erst einmal die FORTH-Wörter ein, die für solche Vergleiche benö 
tigt werden, die als Ergebnisse Flags auf den Stack pushen. 

0= - Das FORTH-Wort 0= überprüft auf Gleichheit mit 0 . Dazu 

entfernt es den obersten Stack-Eintrag und legt statt dessen ein 
Flag darauf ab. Dieses besitzt den Wert 1, falls die Testzahl 
gleich Null war. In allen anderen Fällen, d.h., wenn zuvor keine 
Null auf dem Stack war, hat das Flag den Wert 0. Hier die Stack- 
Relation : 


n — > n 


f lag 


(4-1 ) 


Das Flag ist "wahr", falls n = 0. Denken Sie daran, daß das Flag 
nichts anderes als eine einfach genaue Integer ist. Der Zahlen 
wert 0 steht dabei für den Wahrheitswert "falsch", während 1 für 
"wahr" steht. Im Rest des Buches werden wir deshalb einfach sa 
gen, daß ein Flag "wahr" oder "falsch" ist. Abbildung 4-1 zeigt 
ein Stack-Diagramm vor und nach Ausführung von 0=. Wie Sie sehen, 
wurde der oberste Stack-Eintrag, der ungleich 0 ist, entfernt und 
statt dessen eine 0 (für "falsch") auf den Stack gepusht. 


I 1 

I 7 I 
I 1 

115 I 
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I 8 I 

I 1 

I I 

I 1 
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0< - Das FORTH-Wort 0< überprüft, ob der oberste Stackeintrag 

kleiner als 0 ist. Es entfernt diesen obersten Eintrag vom Stack 
und ersetzt ihn durch ein Flag, das "wahr" ist, wenn die zuvor 
auf dem Stack befindliche Zahl kleiner Null ist; war sie gleich 
oder größer als Null, dann wird das Flag "falsch". Die Stack- 
Relation sieht folgendermaßen aus: 


n — > n 


f lag 


(4-2) 


Das Flag wird nur dann "wahr", wenn n kleiner Null ist. Beachten 
Sie die Ähnlichkeit in der Funktionsweise von 0= und 0<. 

0> - Auch das FORTH-Wort 0> entfernt die oberste Zahl vom Stack 

und legt statt dessen dort ein Flag ab. Dieses ist "wahr", wenn 
die Testzahl positiv war. Ist die Zahl kleiner oder gleich Null, 
dann wird das Flag "falsch". Die Stack-Relation sieht folgender 
maßen aus : 


n — > n 


f lag 


(4-3) 


Das Flag wird nur "wahr", wenn n größer Null ist; in allen ande 
ren Fällen ist es "falsch". 

Als Beispiel wollen wir jetzt ein eigenes FORTH-Wort schreiben, 
das die oberste Zahl vom Stack entfernt und durch ein Flag er 
setzt. Dieses soll "wahr" sein, wenn die Testzahl kleiner oder 
gleich Null war und in allen anderen Fällen "falsch". Man kann 
dies durch folgende Definition erreichen: 


: KGN DUP 0< SWAP 0= + 0> ; 


(4-4) 


Die Definition trägt den Namen KGN (" kleiner /gleich Null") . In 
ihr werden zwei Vergleichsbefehle eingesetzt. Als erstes dupli 
zieren wir die fragliche Zahl. Dann wird das Wort 0< aufgerufen. 
Dieses legt eine 1 auf den Stack, falls die Originalzahl kleiner 
Null war, andernfalls ist ihr Ergebnis Null. Das nächste Wort, 
SWAP, bringt die Originalzahl wieder an oberste Stack-Position. 
Daraufhin wird 0= ausgeführt. Jetzt befindet sich eine 1 auf dem 
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Stack, wenn die Originalzahl gleich Null war, ansonsten steht 
dort eine Null . Die zweite Zahl auf dem Stack ist das Flag, wel 
ches das Wort 0< dort hinterlassen hat. Wenn nun eines der beiden 
Stack-Elemente (oder auch beide) den Wert 1 hat, dann wollen wir 
ein "wahres" Flag auf den Stack pushen (nachdem wir zuvor die 

beiden Stack-Einträge entfernt haben) . Dazu führen wir den Befehl 
+ aus. Jetzt befindet sich statt der beiden obersten Stack-Ein 
träge deren Summe auf dem Stack. Falls diese Zahl größer oder 
gleich 1 ist, dann soll das Ergebnis der gesamten Definition KGN 
"wahr" sein. Ist die Zahl jedoch gleich Null, dann soll auch das 
Ergebnis Null sein. Dafür sorgt das Wort 0> . Es entfernt den 

obersten Stack-Eintrag und legt statt seiner ein Flag dort ab. 
Dieses hat den Wert "wahr", wenn die Ausgangszahl positiv war, 
und ist ansonsten "falsch". Wir haben also genau das erreicht, 

was wir wollen. 

Im Folgenden betrachten wir einige FORTH-Wörter , die Entscheidun 
gen in Abhängigkeit vom Wert zweier Zahlen treffen. Diese Wörter 
entfernen dazu stets die obersten beiden Einträge vom Stack. An 
ihrer Stelle legen sie dort ein Flag ab. 

= - Das FORTH-WORT = entfernt die obersten zwei Stack-Einträge 

und ersetzt sie durch ein Flag. Das Flag ist "wahr", wenn die 

zwei vom Stack entfernten Zahlen gleich waren; ansonsten ist es 
"falsch". Wir haben also folgende Stack-Relation: 


n n 0 — > n 

i 2 flag 

Das Flag wird "wahr", falls n A = n/ 
Fällen. Ein Stack-Diagramm, das die 
Sie in Abbildung 4-2. 

< - Das FORTH-Wort < entfernt die 

und ersetzt sie durch ein Flag, 
zweite Zahl auf dem Stack kleiner 
war. Ansonsten - wenn die zweite 
ersten war - wird das Flag "falsch". 


(4-5) 

! und "falsch" in allen anderen 
Ausführung von = zeigt, sehen 

beiden obersten Stack-Einträge 
Dieses ist "wahr", falls die 
als der oberste Stack-Eintrag 
Zahl größer oder gleich der 
Die Stack-Relation dazu: 


n 


1 


D -2 ~> n 


flag 


(4-6) 
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ABBILDUNG 4-2: a) Ein typischer Stack; 

b) der Stack nach Ausführung von =. 


Das Flag wird also "wahr", wenn n A kleiner n£ ist. Ansonsten ist 
das Flag "falsch". 

> - Das FORTH-Wort > entfernt die beiden obersten Stack-Einträge 

und ersetzt sie durch ein Flag. Das Flag ist "wahr", wenn die 
zweite Zahl auf dem Stack größer als die erste ist; ansonsten ist 
es "falsch". Die Stack-Relation für > lautet: 


-> n, 


f lag 


(4-7) 


Das Flag ist "wahr", wenn n. größer als n2 ist. Ansonsten ist das 
Flag "falsch" . 

Wir wollen als Beispiel ein eigenes FORTH-Wort definieren, das 
zwei Zahlen vom Stack entfernt und an ihrer Stelle ein Flag dort 
ablegt. Dieses soll "wahr" sein, falls die zweite Zahl auf dem 
Stack kleiner oder gleich der ersten ist . In allen anderen Fällen 
- wenn also die zweite Zahl auf dem Stack größer als die erste 
war - soll das Flag "falsch" sein. Die Definition sieht folgen 
dermaßen aus : 
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: KG 2DUP < ROT ROT = + 0> ; 


(4-8) 


Gehen wir die Definition einfach einmal durch. Wir wollen insge 
samt zwei logische Vergleiche durchführen. Dazu müssen wir zwei 
einfach genaue Integers duplizieren. Das können wir ebensogut mit 
2DUP machen. Als nächstes vergleichen wir diese zwei Zahlen über 
<. Dieses Kommando entfernt die beiden Zahlen vom Stack und er 
setzt sie durch ein Flag. Das Flag ist "wahr", wenn der zweite 
Stack-Eintrag kleiner als der erste Stack-Eintrag war. Ansonsten 
ist es "falsch". Als nächstes führen wir zweimal den Befehl ROT 
aus. Jetzt befindet sich wieder das ursprüngliche Zahlenpaar an 
den obersten beiden Stack-Positionen. Der nächste Vergleich er 
folgt mit Hilfe des Befehls =. Deshalb ist es egal, in welcher 
Reihenfolge die beiden Zahlen an die oberste Stack-Position ge 
bracht werden. Wie Sie wissen, entfernt = die beiden obersten 
Stack-Einträge und ersetzt sie durch ein Flag. Dieses ist nur 
dann "wahr", wenn die beiden vom Stack entfernten Zahlen gleich 

sind. Jetzt haben wir zwei Flags in unserem Stack. Von da ab geht 
es weiter wie in der Definition (4-4) . Die Befehle + und 0> wer 
den ausgeführt. Somit befindet sich das gewünschte Ergebnis auf 

dem Stack. 

Es gibt noch einige weitere Vergleichsbefehle, die jedoch noch 
nicht Teil von FORTH-79 sind. Sie finden sich aber im MMSFORTH 
und anderen FORTH-Systemen, weswegen wir sie hier besprechen. 

Das FORTH-Wort 0 funktioniert genau umgekehrt wie das bereits 
bekannte =. Es legt nämlich dann ein "wahres" Flag auf den Stack, 
wenn dessen beide oberste Einträge ungleich sind. Sind sie jedoch 
gleich, dann ist das Ergebnis von <> ein "falsches" Flag. 

Das Wort <= funktioniert ähnlich wie <, außer daß das Flag nun 

"wahr" wird, wenn die zweite Zahl auf dem Stack kleiner oder 

gleich der Zahl an oberster Stack-Position ist. 


Das FORTH-Wort >= funktioniert ähnlich wie >, außer daß das Flag 
nun "wahr" wird, wenn die zweite Zahl auf dem Stack größer oder 
gleich der Zahl an oberster Stack-Position ist. 
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4 . 2 Bedingte Verzweigungen 


Wie werden jetzt erörtern, wie die Entscheidungsbefehle aus dem 
’.etzten Abschnitt dazu dienen können, in einem Programm Verzwei 
gungen zu steuern. Dadurch wird unsere Programmierf ähigkeit be 
trächtlich gesteigert. 

IF und THEN - In FORTH gibt es zwei Kommandos, die für die Ver 
zweigung in Programmen grundlegend sind. Sie lauten IF sowie 
THEN. Die beiden Wörter treten immer zusammen auf. Sie haben die 
allgemeine Form: 


IF anweisungen a THEN anweisungen b 


(4-9) 


Die beiden Wörter funktionieren folgendermaßen: Bei Ausführung 

von IF wird die oberste Zahl vom Stack entfernt und als Flag be 
trachtet. Falls (englisch "if") das Flag "wahr" ist, dann werden 
die "anweisungen a" ausgeführt, die hinter dem Wort IF folgen. 
Als nächstes werden die "anweisungen b" ausgeführt. War das zuvor 
auf dem Stack befindliche Flag jedoch falsch, dann werden die 
anweisungen a" übergangen und es kommt nur zur Ausführung der 
'anweisungen b" . Beachten Sie, daß das Flag (die Bedingung) vor 
dem IF kommen muß. Diese Regelung steht im Einklang mit der üb 
liehen umgekehrten polnischen Notation, entspricht aber nicht dem 
Umgangssprachliehen Gebrauch des "wenn ... dann" . Das Wort IF ent 
fernt das Flag vom Stack; ist es "wahr", dann wird der Programm 
zweig zwischen den Wörtern IF und THEN begangen. Bei einem "fal 
sehen" Flag werden diese Befehle übergangen, und nur der Pro 
grammteil hinter THEN gelangt zur Ausführung. Beachten Sie, daß 
die auf THEN folgenden Wörter also in jedem Fall ausgeführt wer 
den . 

Wir wollen einmal ein Beispiel für ein FORTH-Wort analysieren, 
das zwei Programmzweige enthält . Das Wort vergleicht zwei Zahlen 
auf dem Stack. Sind sie gleich, dann gibt es die Meldung aus: 

"Die Zahlen sind gleich". Bei Ungleichheit der Zahlen meldet das 
Programm jedoch: "Die Differenz lautet" und gibt daraufhin die 

Differenz der beiden Zahlen aus. Wir erreichen dies durch die 
Definition in Abbildung 4-3. 
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ABBILDUNG 4-3: Ein einfaches Beispiel für Programmverzweigungen 

Zeile 1 dieses Programms definiert den Namen des neuen Wortes, 
nämlich CHECKEQ. Da unter Umständen zwei Operationen mit den 

fraglichen Integers erforderlich sind, duplizieren wir sie beide 
nittels 2DUP . Als nächstes wird das oberste Zahlenpaar vom Stack 
entfernt und mittels = verglichen. Sind die Zahlen gleich, dann 

wird ein Flag mit dem Wert "wahr" auf den Stack gepusht. Anson 
sten ist das Flag "falsch". Jetzt kommt das Wort IF an die Reihe. 
Es entfernt das Flag an oberster Stack-Position. Im Falle eines 

"wahren" Flags werden dann die Wörter zwischen IF und THEN ausge 
führt. Dies führt dazu, daß die Meldung "Die Zahlen sind gleich" 

ausgegeben wird. Da im Folgenden der Stack nicht mehr benötigt 

wird, führen wir das Kommando 2DROP aus, um ihn zu bereinigen. 
Anschließend kommt der Befehl QUIT an die Reihe, wodurch das Wort 
/erlassen und die Kontrolle wieder an Ihr Terminal übergeben 
wird. Wie Sie sehen, kann also das Wort QUIT durchaus Bestandteil 
eines Programmzweigs sein. Wenn in unserem selbstdefinierten Wort 
der Programmzweig mit dem QUIT ausgeführt wird, dann gelangen die 
Programmschritte hinter THEN nicht zur Ausführung. Beachten Sie 

aber, daß ein Aufruf von CHECKEQ aus einem anderen FORTH-Wort 
leraus in diesem Fall dazu führt, daß alle Berechnungen durch 

QUIT abgebrochen werden und nicht nur das Wort CHECKEQ verlassen 

wird. Sie müssen also beim Umgang mit QUIT sehr vorsichtig sein. 


Eine einfache Programmverzweigung ) 

CHECKEQ 2DUP 

IF . " Die Zahlen sind gleich " 2DR0P QUIT 

THEN - . " Die Differenz lautet " . 
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Jetzt wollen wir einmal annehmen, daß das Flag "falsch" war. In 
diesem Fall werden die Befehle zwischen IF und THEN übergangen. 
Nun berechnet das FORTH-Wort - die Differenz der beiden Zahlen. 
Diese ersetzt die beiden Originalzahlen auf dem Stack. Als letz 
tes führen wir den Befehl . " aus und sorgen dafür, daß die Mel 
düng "Die Differenz lautet" auf dem Bildschirm ausgegeben wird. 
Der Punktbefehl bringt dann die Differenz zum Vorschein. Da so 
wohl das Wort - als auch . jeweils eine Zahl vom Stack entfernen, 
brauchen wir in diesem Programmzweig nicht mittels DROP den Stack 
zu bereinigen. 

ELSE - Programmverzweigungen werden durch das FORTH-Wort zu einem 
wesentlich wirkungsvolleren Instrument. Der Befehl ELSE kann fol 
gendermaßen in die Befehlsfolge IF...THEN eingebaut werden: 

IF anweisungen a ELSE anweisungen b THEN anweisungen c (4-10) 


In diesem Fall werden folgende Programmschritte unternommen. Wie 
der gehen wir davon aus, daß der oberste Stack-Eintrag ein Flag 
ist. Ist das Flag "wahr", dann werden die "anweisungen a" ausge 
führt, nicht aber die "anweisungen b" . Als nächstes kommen dann 
die "anweisungen c" an die Reihe. Ist das Flag aber "falsch", 
dann werden die "anweisungen a" übergangen, es gelangen jedoch 
die "anweisungen b" sowie die "anweisungen c" zur Ausführung. 
Nocheinmal: Wenn das Flag "wahr" ist, dann werden die Wörter zwi 

sehen IF und ELSE ausgeführt, während die zwischen ELSE und THEN 
übergangen werden. Ist das Flag "falsch", dann werden die Anwei 
sungen zwischen IF und ELSE übergangen, während die zwischen ELSE 
und THEN stehenden Wörter ausgeführt werden. Das Wort IF besitzt 
natürlich auch eine Stack-Relation; sie lautet: 


n Eläg 


- -> 


(4-11) 


Wir wollen die Arbeitsweise des Wortes ELSE anhand des Programms 
in Abbildung 4-4 verdeutlichen. Dieses einfache Programm könnte 
z.B. ein Lehrer dazu benutzen, Informationen über die Leistungen 
seiner Schüler anhand der erreichten Punktzahl auszudrucken. Die 
• v.t zahl ist eine Integer, die sich an oberster Stack-Position 
oeimden so'i± . Bei Ausführung des "Wortes "SOTES passiert dann fol 
gendes. Eei einer Punktzahl kleiner 60 wird die Meldung "Der 
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Schüler fällt durch" ausgegeben. Ist die Punktzahl größer oder 
gleich 60, dann erscheint statt dessen "Der Schüler besteht". In 
beiden Fällen wird jedoch die Differenz zwischen der erreichten 
Punktzahl und der maximalen Punktzahl von Hundert zusammen mit 
einer erklärenden Meldung ausgegeben. 

0 ( Einfache Bewertung durch Verzweigung ) 

1 : NOTEN . " Der Schueler " 60 - 0< 

2 IF . " faellt durch " ELSE . " besteht " 

3 THEN 40 - NEGATE ." erst mit " 

4 ." weiteren Punkten bist du perfekt! " 

5 

6 

7 

8 
9 

1 0 
11 
1 2 

1 3 
1 4 
1 5 

ABBILDUNG 4-4: Ein einfaches Beispiel für bedingte Verzweigungen 

Sehen wir uns das Wort NOTEN in allen Einzelheiten an (vgl. Abb . 

4-4) . In Zeile 1 wird zuerst einmal der Text "Der Schüler" ausge 
geben. Daraufhin pushen wir die Zahl 60 auf den Stack. Das Wort - 
sorgt nun dafür, daß die Punktzahl des Schülers, vermindert um 
den Wert 60, als neues oberstes Stack-Element gegeben ist. Ist 

diese Zahl negativ, dann ist der Schüler durchgefallen. Da wir 
diese Zahl zweimal brauchen, duplizieren wir sie jedoch zuerst 
mit DUP . Dann wird der Vergleich mit 0< ausgeführt. Die oberste 

Zahl auf dem Stack, also die Punktzahl des Schülers minus 60, 

wird von diesem entfernt und durch ein Flag ersetzt. Dieses hat 

den Wert "wahr", wenn die Ausgangszahl kleiner Null ist oder, 

anders gesagt, wenn der Schüler weniger als 60 Punkte erreicht 

hatte. Als nächstes stoßen wir auf den Befehl IF. Dieser entfernt 
das Flag vom Stack. Ist es "falsch", dann wird die Meldung "fällt 
durch" ausgegeben. Außerdem werden die Anweisungen zwischen ELSE 
und TUEN übergangen. Wenn andererseits das Flag "falsch" ist, 

dann ignoriert FORTH die Wörter zwischen IF und ELSE und gibt 
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somit die Meldung "besteht" aus. Jetzt haben wir als obersten 
Eintrag auf dem Stack wieder die Ausgangszahl (Punktzahl des 
Schülers minus 60) . Das kommt von der DUP-Anweisung in Zeile 1. 
Jetzt legen wir eine 40 auf den Stack und führen den Befehl - 
aus. Dieser ersetzt in bereits bekannter Weise die beiden Zahlen 
durch ihre Differenz. Das neue oberste Stack-Element ist somit 
die Punktzahl des Schülers minus 100. Da es sich dabei um eine 
negative Zahl (oder die Null) handelt, drehen wir deren Vorzei 
chen mittels NEGATE um. Damit wird die Zahl auf dem Stack posi 
tiv. Dies ist die Zahl, die man auf die ursprüngliche Punktzahl 
des Schülers addieren muß, um 100 zu erhalten. Angenommen, es 
handelt sich dabei um eine 15. In diesem Fall sorgt das restliche 
Programm dafür, daß die Meldung "Erst mit 15 weiteren Punkten 
bist du perfekt" ausgegeben wird. 


4.2.1 Verschachtelte Kontrollstrukturen 


Wie wir gesehen haben, lassen sich in einem Programm über die 
Befehlsfolge IF— ELSE-THEN zwei Zweige einführen, einer zwischen 
IF und ELSE, der andere zwischen ELSE und TUEN. Innerhalb eines 
solchen Programmzweigs kann nun eine weitere Verzweigung statt 
finden. Diese Art Programmstruktur bezeichnet man mit dem Fach 
ausdruck verschachtelte Kontrollstruktur. Den Einsatz verschach 
telter Kontrollstrukturen wollen wir an einem FORTH-Wort illu 
strieren, das der Punktzahl von Schülern die entsprechende Bewer 
tung zuordnet. Das Programm erwartet, daß sich die Punktzahl als 
oberster Eintrag auf dem Stack befindet. Dann wird das neue Wort 
BENOTUNG ausgeführt. Bei einer Punktzahl von unter 60 gibt dieses 
Wort die Meldung aus: "NOTE: DURCHGEFALLEN". Bei einer Leistung 

von mehr als 60 und weniger als 70 Punkten gibt es die Meldung 
aus: "NOTE: VIER"; zwischen 70 und 80 Punkten wird ausgegeben: 
"NOTE: DREI". Bei einer Punktzahl zwischen 80 .und 90 erscheinen 
die Wörter "NOTE: ZWEI" und zwischen 90 und 100: "NOTE: EINS". 

Das zugehörige Programm sehen Sie in Abbildung 4-5. Das neu de 
finierte Wort trägt den Namen BENOTUNG. Zeile 1 gibt zuerst ein 
mal den Text "NOTE:" aus. Als nächstes wird eine 60 auf dem Stack 
abgelegt und mittels - von der Punktzahl des Schülers subtra 
hiert . Der oberste Stack-Eintrag stellt nunmehr also die Punkt 
zahl des Schülers weniger 60 dar. Diese Zahl duplizieren wir 
mittels DUP . Als nächstes stellen wir den Vergleich 0< an. 
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0 ( Verschachtelte Kontrollstrukturen ) 

1 : BENOTUNG . " NOTE: " 60 - DUP 

2 IF DURCHGEFALLEN " DROP 

3 ELSE 10 - DUP 0< IF 

4 . " VIER " DROP 

5 ELSE 10 - DUP 0< IF 

6 ELSE 10 - 0< IF 

7 ELSE EINS " 

8 THEN 

9 THEN 

1 0 THEN ; 

1 1 
12 
1 3 
14 
1 5 

ABBILDUNG 4-5: Ein FORTH-Wort mit verschachtelten 

Kontrollstrukturen 

Wenn das Flag, das dieser Vergleich als Ergebnis auf dem Stack 
hinterläßt, "wahr" ist, dann bedeutet dies, daß die Punktzahl des 
Schülers schlechter als 60 sein muß. In diesem Fall geben wir die 
Meldung "DURCHGEFALLEN" aus. Es werden nun alle Anweisungen zwi 
sehen ELSE und THEN ignoriert. Bei diesem Punkt müssen wir beson 
ders vorsichtig sein. Der Zweig zwischen ELSE und THEN enthält 
nämlich ein weiteres Vorkommnis von IF . Wir haben also den Fall, 
daß innerhalb einer Programmverzweigung eine weitere Programmver 
zweigung eingebettet ist . Jedes IF innerhalb einer solchen ge 
schachtelten Konstruktion bezieht sich auf eine ganz bestimmte 
ELSE-und-THEN-Folge . Wir müssen die zusammengehörigen IF-, ELSE- 
und THEN-Befehle sorgfältig zusammen gruppieren. Dazu kann man 
sich des folgenden Verfahrens bedienen. 

Als erstes machen wir das innerste (am weitesten eingeschachtel 
te) IF ausfindig. Die auf dieses folgende nächste Kombination von 

ELSE und THEN bezieht sich nun auf dieses innerste IF . Vom inner 

sten IF gehen wir nach außen und finden das vorletzte IF. Die 
nächste Kombination von ELSE und THEN hinter der soeben gefunde 
nen bezieht sich nun auf dieses IF. Auf diese Art arbeiten wir 

von innen nach außen und stellen so die Beziehung zwischen den 

einzelnen IF, ELSE und THEN her. Sie können auch noch ein anderes 
Verfahren anwenden. Dazu gruppieren wir das erste IF mit dem 


0 < 


DREI 


DROP 


ZWE.I" " 
THEN 


132 


4 Programmsteuerung - Strukturiertes Programmieren 


nächsten ELSE und dem letzten THEN in der verschachtelten Struk 
tur (Beachten Sie, daß dies nicht notwendigerweise das letzte 
THEN im gesamten Wort sein muß ! ) . Dann wiederholen wir dieses 
Vorgehen mit den verbleibenden IF, ELSE und THEN. So gehört z.B. 
in Abbildung 4-5 das IF auf Zeile 2 zum ELSE auf Zeile 3 und dem 
THEN auf Zeile 10. Das erste IF im Wort wird also auf das nächste 
ELSE und das letzte THEN bezogen. 

Wenn also in unserem Programmbeispiel das Original-Flag den Wert 
"wahr" hat, dann wird "DURCHGEFALLEN" ausgegeben, anschließend 
mittels DROP der Stack bereinigt und das Wort beendet (denn hin 
ter dem zugehörigen THEN stehen keine weiteren Befehle mehr) . Ist 
andererseits das Flag "falsch", dann werden die Befehle zwischen 
dem IF in Zeile 2 und dem ELSE in Zeile 3 ignoriert. Statt dessen 
gelangen die Wörter zwischen dem ELSE von Zeile 3 und dem THEN 

von Zeile 10 zur Ausführung. Die Zahl, die sich zu diesem Zeit 

punkt an oberster Stack-Position befindet, ist die duplizierte 

Punktzahl des Schülers weniger 60. Jetzt legen wir in Zeile 3 
eine 10 auf den Stack und subtrahieren erneut. Die Zahl, die wir 
daraus als Ergebnis erhalten, ist nur dann größer oder gleich 
Null, wenn die Ausgangspunktzahl größer oder gleich 70 war. Diese 
neue Zahl duplizieren wir ebenfalls in Zeile 3 mittels DUP . Dann 
kommt das Vergleichswort 0< an die Reihe und legt ein Flag auf 
den Stack. Dieses wird vom nächsten IF entfernt. Hatte es den 
Wahrheitswert "wahr", dann wird eine Vier ausgegeben. 

Versuchen Sie einmal, das gerade aktuelle IF mit seinem dazugehö 
rigen ELSE und THEN in Beziehung zu bringen. Wie wir wissen, 
gehört zu dem IF von Zeile 3 das ELSE auf Zeile 5 und das THEN in 
Zeile 9. Bei einem "wahren" Flag wird also eine "VIER" ausgege 

ben, anschließend mittels DROP der Stack bereinigt und die Pro 
grammkontrolle an Zeile 9 und anschließend an Zeile 10 übergeben, 
was bedeutet, daß das Wort endet. Ist das Flag jedoch "falsch", 
dann werden die Befehle zwischen dem IF auf Zeile 3 und dem ELSE 
von Zeile 5 ignoriert. Statt dessen gelangen die Wörter zwischen 
dem ELSE in Zeile 5 und dem THEN in Zeile 9 zur Ausführung. Hier 
verfolgen wir wieder dieselben Schritte wie bereits zuvor und 
geben "DREI" oder "ZWEI" aus, je nachdem, welche Punktzahl der 
Schüler erreicht hat . Beachten Sie, daß bei Ausführung des IF von 
Zeile 6 der Schüler entweder eine 2 oder eine 1 erhält. Wenn das 
Flag, das sich durch das Ergebnis des 0< in Zeile 6 ergibt, 
"wahr" ist, dann sollte eine 2 ausgegeben werden, anderenfalls 
wird eine 1 auf dem Bildschirm erscheinen. 
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FORTH bedient sich des Returnstacks, um die Abarbeitung solcher 
verschachtelter Kontrollstrukturen wie in Abbildung 4-5 zu bewäl 
tigen. Kommen bei verschachtelten Verzweigungen die Wörter >R und 
R> vor, dann müssen Sie äußerste Sorgfalt walten lassen. In jedem 
Zweig einer solchen Struktur muß eine gleiche Anzahl von >R und 
R>-Worten zur Ausführung gelangen . Beachten Sie, daß es dazu 
nicht reicht, lediglich eine gleiche Anzahl von >R und R>-Worten 
im Programm stehen zu haben. Es müssen auch gleich viele dieser 
Wörter ausgeführt werden. Dies gilt für jeden möglichen Zweig in 
Ihrem Programm. Selbst wenn nur zwei Zweige existieren, also 
keine Verschachtelungen vorgenommen werden, müssen immer noch 
gleichviel R> und >R-Befehle ausgeführt werden. Wenn Sie sich 
nicht an diese Vorschrift halten, dann können Sie Ihr System zum 
Absturz bringen. Sie müßten es dann erneut starten und würden 
unter Umständen alle Daten verlieren, wenn Sie diese nicht auf 
Diskette gesichert haben. 


4 . 3 Unbedingte Schleifen 


Oft ist es nötig, daß Ihr Programm eine Folge von Schritten wie 
derholt ausführt. Man spricht in diesem Fall von einer Programm 
schleife. Wir könnten ein FORTH-Wort schreiben, das aus einer 
Folge von Befehlen besteht und dann ein anderes FORTH-Wort, das 
dieses erste FORTH-Wort wiederholt aufruft . Dies ist aber hoch 
stens eine Notlösung, besonders, wenn die Operationen sehr viele 
Male wiederholt werden müssen. In FORTH gibt es für diesen Zweck 
spezielle Wörter, mit denen Programmschleifen ausgelöst werden 
können, ohne daß der Programmierer die Wiederholung der Befehle 
von Hand durch Hinschreiben bewirken muß. Das Prinzip der Pro 
grammschleifen eröffnet noch einige weitere nützliche Möglich 
keiten, die wir in diesem Abschnitt besprechen wollen. 

DO und LOOP - Diese beiden Wörter werden eingesetzt, um elemen 
tare Schleifen in Programmen zu bewerkstelligen. Eine solche 
Schleife hat folgenden allgemeinen Aufbau 


n .j ri2 DO anweisungen a LOOP 


(4-12) 
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dieses Konstrukt hat die folgende Bedeutung: Bei Ausführung einer 

Abweisung der Form (4-12) werden die Werte n A und nj vom Stack 
entfernt und auf dem Return-Stack abgelegt, wobei dort n A zu 
oberst zu liegen kommt. (Was die Werte n x imnpl betrifft, so 

-üssen Sie sich um den Return-Stack nicht kümmern. Nach Verlassen 
:er Schleife wird dieser nämlich automatisch von n A und n£ berei 
nigt . ) Als nächstes werden die "anweisungen a" ausgeführt. Trifft 

ler FORTH-Interpreter nun auf das Wort LOOP, so erhöht er den 
Wert von n A auf dem Return-Stack um 1 und vergleicht diesen neuen 
Wert mit n A . Falls n~ kleiner als n, ist, werden erneut die "an- 
•eisungen a" wiederholt. Jedesmal beim Erreichen des Wortes LOOP 
wird also n A um 1 erhöht (inkrementiert) und getestet. Wird es 
dabei einmal gleich oder größer n A , dann wird die Schleife ver 
lassen, und die Anweisungen hinter LOOP werden ausgeführt. Ist 
andererseits n A immer noch kleiner als n A , dann werden die "an- 
“eisungen a" erneut ausgeführt. Deswegen sorgen die folgenden 
Befehle 


7 4 DO ." HALLO " LOOP (4-13) 

dafür, daß das Wort HALLO dreimal auf dem Bildschirm ausgegeben 
wird . 

Sie Stack-Relation bei Ausführung eines DO lautet: 


n,t n„ -> (4-14) 

1 z 

Bie Zahl n A heißt Testwert der Schleife; sie bleibt unverändert. 

Sie Zahl n A bezeichnet man als Schleifenindex . Sie wird bei jedem 

Sdrchgang durch die Schleife um 1 erhöht. Beachten Sie, daß min 
destens ein Durchgang durch die Schleife vorgenommen wird, da der 
SchLeifen . in . dex erst bei Erreichen von LOOP mit dem Testwert ver 
glichen wird. 

Man kann sich den Schleifenindex vom Return-Stack auf den Parame 
ter-Stack mit Hilfe des FORTH-Wortes I kopieren. Auch den Test 
wert kann man vom Return-Stack auf den Parameter-Stack bringen, 
und zwar mit dem Wort I ' . Beachten Sie, daß keine dieser beiden 

Operationen etwas am Return-Stack verändert. Wir haben sie be 
reits in Abschnitt 2-6 kennengelernt. Als Beispiel für ein Pro 
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gramm mit Schleife wollen wir ein FORTH-Wort schreiben, das die 
Fakultät einer Integer an oberster Stack-Position berechnet . In 
der mathematischen Fachliteratur stellt man die Fakultät einer 
Zahl mit Hilfe des Ausrufezeichens dar. Als Beispiel 

51=5*4*3*2*1=120 . 

Entsprechend ist 3i =3*2*1 = 6. (Beachten Sie, daß man "5!" als "5- 
Fakultät" liest) . Die Definition des FORTH-Wortes FACT entnehmen 
Sie bitte der Abbildung 4-6. Wir wollen uns einmal ansehen, wie 
dieses Wort funktioniert. Zur Berechnung von 5! geben wir ein: 

5 FACT (RETURN) (4-15) 


Das bedeutet, daß sich bei Aufruf von FACT eine 5 auf dem Stack 
befindet. Die Definition von FACT enthält alle notwendigen Anwei 
sungen, um das Schleifenkonstrukt "in Gang zu setzen". Dabei soll 
bei jedem Durchgang durch die Schleife eine Multiplikation statt 
finden. Der Anfangswert des Schleifenindex ist 1. Wenn wir die 
Fakultät von 5 berechnen wollen, dann sollten wir die Schleife 
fünfmal durchlaufen. Deshalb benötigen wir einen Testwert von 6. 
Dies kommt daher, daß die Schleife erst dann verlassen wird, wenn 
der erhöhte Index dem Testwert entspricht. 

Jetzt zur Abbildung 4-6. Als erstes pushen wir 1 auf den Stack 
und rufen das Wort +. Dadurch wird der Ausgangswert um 1 erhöht. 
Wir hätten dies natürlich genauso mit Hilfe des Befehls 1+ errei 
chen können. Dann legen wir eine weitere 1 auf den Stack. Zu die 
sem Zeitpunkt der Programmausführung haben wir also zuoberst auf 
dem Stack eine 1, gefolgt von der Ausgangszahl, welche um 1 er 
höht wurde - in diesem Fall also die 6. Nun legen wir eine wei 
tere 1 auf den Stack. Diese brauchen wir in unseren Berechnungen. 
Ehe wir damit aber beginnen können, müssen wir den Anfangswert 
des Schleifenindex sowie den Testwert an die richtigen Stack- 
Positionen, also an erste und zweite Position bringen. Dies 
geschieht durch zweimalige Ausführung von ROT. In unserem Bei 
spiel 4-15 bedeutet dies, daß nach Ausführung der zwei ROT-Wörter 
der Stack folgendes Aussehen hat: 161. Dabei ist die letzte 

Zahl der oberste Stack-Eintrag. Jetzt kommt endlich das DO an die 
Reihe, welches die Schleife einleitet. DO entfernt die obersten 
beiden Stack-Werte und legt sie auf den Return-Stack. Infolge 
dessen befindet sich auf dem Daten-Stack jetzt zuoberst eine 1. 
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0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

1 0 
11 
12 

1 3 
14 
1 5 


( Berechnung der Fakultaet ) 

: FACT 1 + 11 ROT ROT 

DO I * LOOP . ; 


ABBILDUNG 4-6: Ein Fakultätsprogramm 


Betrachten wir nun die Anweisungen zwischen DO und LOOP. Die er 
ste ist der Befehl I. Diese dupliziert den Schleifenindex an die 
oberste Daten-Stack-Position . Anschließend wird mittels * multi 
pliziert. Somit werden die obersten beiden Stack-Einträge durch 
ihr Produkt ersetzt. Beim ersten Schleifendurchgang berechnen wir 
also 1*1. Beim zweiten Durchgang durch die Schleife hat der Index 
den Wert 2. Deshalb wird das Produkt 1*2=2 berechnet. Der dritte 
Schleifendurchgang arbeitet mit einem Schleifenindex von 3 und 
berechnet 2*3=6. Nach Abschluß der Schleife haben wir also die 
gewünschte Fakultät berechnet . Dieser Wert wird nach Beendigung 
der Schleife durch das Punktkommando ausgegeben. 


4 . 4 Schleifen-lnkrement mittels +LOOP 


Wir haben gesehen, daß bei jedem Durchgang durch eine Schleife 
der Index automatisch um 1 erhöht wird. Manchmal kann es aber 
wünschenswert sein, den Schleifenindex um einen anderen Betrag 
als 1 zu verändern. Dazu ersetzen wir einfach das FORTH-Wort LOOP 
durch ein anderes Wort, welches dies bewerkstelligt. Dieses Wort 
lautet +LOOP . Bei Ausführung von LOOP wird der Schleifenindex um 
1 erhöht, und anschließend wird überprüft, ob sein Betrag bereits 
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den Testwert übersteigt. Anders bei +LOOP : Bei Ausführung dieses 

Wortes wird der oberste Stack-Eintrag vom Stack entfernt und 
dient jetzt als Schleifeninkrement, d.h., er gibt den Betrag an, 
um den der Schleifenindex erhöht werden soll. Nachdem der Schlei 
fenindex um das Schleifeninkrement erhöht wurde, wird der neue 
Indexwert mit dem Testwert verglichen, wobei FORTH nachsieht, ob 
der Schleifenindex kleiner als der Testwert ist. (Dies gilt nur 
für den Fall, daß das Schleifeninkrement positiv war.) Die Stack- 
Relation für das Wort +LOOP lautet 


n 


> 


(4-16) 


Als Beispiel für dieses Wort werden wir ein kleines Programm 
schreiben, welches die Summe aller ungeraden Zahlen angibt, die 
innerhalb eines durch die zwei obersten Stack-Einträge festgeleg 
ten Bereiches liegen. Wir geben diesem neuen Wort den Namen 
ODDSUM. Beispielsweise sollte 

17 3 ODDSUM (RETURN) (4-17) 


die Summe der ungeraden Zahlen zwischen 3 und 17 einschließlich 
auf dem Bildschirm ausgeben. Die Definition von ODDSUM lautet: 

: ODDSUM SWAP 1+ 0 SWAP ROT DO I + 2 +LOOP (4-18) 

Die erste Operation in diesem Wort ist ein Austausch der beiden 
obersten Stack-Werte mittels SWAP. Im Beispiel (4-17) bringt dies 
die Zahl 17 an oberste Stack-Position. Sie wird anschließend 
mittels 1+ um eins erhöht. Dann bringen wir noch eine 0 auf den 
Stack und führen erneut SWAP aus . Das anschließende Wort ROT 
führt dann dazu, daß wir für Beispiel (4-18) den Stack 0 18 3 

erhalten. Bei dem Einstieg in die DO-Schleife haben wir also (in 
Beispiel (4-17) ) einen Anfangswert für den Schleifenindex von 3, 
während der Testwert 18 ist. DO entfernt diese beiden Zahlen vom 
Stack, so daß sich nun die Null dort zuoberst befindet. Bei einem 
Durchgang durch die Schleife legt I den Schleifenindex auf den 
Stack. Dieser ist in unserem Beispiel beim ersten Durchgang 
gleich 3, so daß innerhalb der Schleife auf die 0 eine 3 addiert 
wird. Diese beiden Werte - 3 und 0 - werden entfernt und durch 
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ihre Summe ersetzt. Anschließend legen wir eine 2 auf den Stack. 
Sie sorgt zusammen mit dem Wort +LOOP dafür, daß der Schleifenin 
dex um 2 erhöht wird. Deshalb wird beim nächsten Durchgang durch 
die Schleife eine 5 auf die bisher aufgelaufene Summe addiert. 
Wenn schließlich der erhöhte Schleifenindex größer als der Test 
wert der Schleife ist, dann endet die Ausführung der Programm 
schleife. Das Punktkommando gibt die gewünschte Summe aus. 

Die bisherigen Beispielprogramme benutzten positive Werte für den 
Schleifenindex, den Testwert und das Schleifeninkrement. Dies muß 
jedoch nicht so sein, alle drei Parameter können genausogut nega 
tive Werte besitzen. Bei einem positiven Schleifeninkrement wird 
die Schleife verlassen, wenn der Schleifenindex größer oder 
gleich dem Testwert ist. Ist andererseits das Schleifeninkrement 
negativ, dann endet die Schleife, wenn der Schleifenindex einen 
Wert besitzt, der kleiner als der Testwert ist. Betrachten Sie 
z.B. das Wort NEGTEST: 


: NEGTEST -5 2 DO I . -2 +LOOP ; 


(4-19) 


Wenn wir dieses Wort aufrufen, so erhalten wir als Ergebnis 
2 0-2-4 ok 

LEAVE - Mit dem FORTH-Wort LEAVE kann man das Verlassen einer 
Schleife erzwingen. Bei Ausführung von LEAVE wird der Testwert 
der Schleife auf den aktuellen Wert des Schleifenindex gesetzt, 
ladurch wird die Schleife bei dem nächsten LOOP verlassen. LEAVE 
-~rd fast immer in Zusammenhang mit Verzweigungen eingesetzt. Wir 
-erden noch später in diesem Kapitel ein Anwendungsbeispiel für 
LEAVE kennenlernen. 


4 Programmsteuerung - Strukturiertes Programmieren 

4 . 5 Verschachtelte Schleifen 


Eine Schleife kann innerhalb einer anderen eingeschachtelt sein. 
Wir wollen dies an einem kleinen Beispiel demonstrieren: 

: NEST 101 DO 5 3 DO I . LOOP LOOP ; (4-20) 

Wenn wir das Wort NEST aufrufen, dann erhalten wir neunmal hin 
tereinander die Zahlen 3 und 4 auf dem Bildschirm. Die Wortdefi 
nition enthält zwei Schleifen - eine äußere Schleife, deren Index 
mit 1 beginnt und die einen Testwert von 10 hat, sowie eine 
innere Schleife, deren Index den Anfangswert 3 hat und die mit 
einem Testwert von 5 arbeitet. Bei Ausführung von NEST gehen wir 
zuerst einmal in die äußere Schleife. Dabei werden die Zahlen 5 
und 3 auf den Stack gelegt. Als nächstes Wort leitet DO die 
innere Schleife ein. Dies bedeutet, daß die 5 und die 3 wieder 
vom Stack entfernt und auf den Return-Stack gepusht werden. 

Infolgedessen werden die 10 und die 1, die vor der äußeren DO- 

Schleife auf dem Stack waren, um zwei Positionen auf dem Return 
stack nach unten wandern. Nun stoßen wir auf das FORTH-Kommando 
I. Dieses legt den Wert des Schleifenindex auf den Stack; beach 
ten Sie dabei, daß I stets den Index der Schleife ausgibt, in der 
wir uns gerade befinden. In unserem Beispiel ist dies gerade die 

innerste Schleife. Beim ersten Durchgang durch die innerste 
Schleife hat der Index den Wert 3, weswegen auch dieser Wert auf 

den Stack gelegt wird. Das Punktkommando entfernt ihn wieder von 

dort und gibt ihn aus. Der nächste Schleifendurchgang erfolgt mit 
einem Schleifenindex von 4; dieser Wert wird gedruckt. Die innere 
Schleife bricht nun ab, und ihre Parameter werden vom Return- 

Stack entfernt. Wir befinden uns aber immer noch in einer 

Schleife, nämlich in der äußeren Schleife, deren Schleifenindex 
und Testwert jetzt zuoberst auf dem Return-Stack sind. Diese 
äußere Schleife durchlaufen wir nun zum zweitenmal. Wieder werden 
die 5 und die 3 auf den Stack gelegt und die innere DO-Schleife 

durchlaufen. Es wiederholen sich dieselben Vorgänge wie zuvor: 3 

und 4 werden wieder ausgegeben, und die innere Schleife wird 
verlassen. Dieser ganze Vorgang wird so lange wiederholt, bis die 
äußere Schleife insgesamt neunmal durchlaufen wurde. 

Wenden wir uns noch einmal dem I-Befehl zu. Er besorgt den Index 
der Schleife, die gerade ausgeführt wird, und legt ihn auf den 
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Daten-Stack. Ist die aktuelle Schleife die innerste, dann wird I 
deren Index auf den Stack legen. Ist die Ausführung der innersten 
Schleife jedoch abgeschlossen, dann dupliziert I den äußeren 
Schleifenindex auf den Stack. Ähnlich sorgt das FORTH-Wort I' 
dafür, daß der Testwert der gerade in Aktion befindlichen Schlei 
fe auf den Stack gelegt wird. Manchmal kommt es vor, daß wir uns 
in einer inneren Schleife befinden, aber den Index der äußeren 
Schleife auf den Stack gelegt haben wollen. Dies erreichen wir 
mit dem FORTH-Wort J (vergleiche Abschnitt 2-6) . Beachten Sie, 
daß I, I' und J im Return-Stack nichts verändern. Nach Abschluß 
einer Schleife werden alle ihre Schleifenparameter vom Return- 
Stack entfernt. Sie brauchen sich darum nicht zu kümmern. 

Bei eingeschachtelten Schleifen muß die innere Schleife vollstän 
diq innerhalb der äußeren Schleife liegen. Beachten Sie, daß 
jeder DO-Befehl mit einem zugehörigen LOOP oder +LOOP verbunden 
ist. Um herauszufinden, welches DO zu welchem LOOP bzw. +LOOP 
gehört, können Sie im wesentlichen genauso Vorgehen, wie wir es 
bei IF und THEN kennengelernt haben. Machen Sie zuerst das in 
nerste DO ausfindig. Dazu gehört das nächste vorkommende LOOP 
oder +LOOP . Dann suchen Sie das vorhergehende DO. Dazu gehört das 
nächste LOOP, ausgehend von dem zuletzt gefundenen LOOP. Wenn wir 
in dieser Weise Vorgehen, so können wir den Geltungsbereich jeder 
Schleife ausfindig machen. 

Als Beispiel für verschachtelte Schleifen wollen wir ein Programm 
schreiben, das pythagoreische Zahlentripel berechnet. Damit be 
zeichnen wir drei ganze Zahlen, die die Länge der drei Seiten 
eines rechtwinkeligen Dreiecks wiedergeben sollen. Die Zahlen a, 
b und c (allesamt Integers) stellen ein pythagoreisches Zahlen 
tripel dar. 


a 


2 


+ b 


2 

c 


(4-21) 


Wenn etwa a = 3 und b = 4, dann ergibt sich c = 5, und somit ist 
3, 4, 5 ein solches pythagoreisches Tripel. Nun gibt es nur eine 
Handvoll ganzer Zahlen, die die Gleichung (4-21) erfüllen. Wir 
wollen uns deshalb ein FORTH-Programm schreiben, das solche Tri- 
Del für Werte von a und b zwischen 1 und 100 berechnet. Das zuge 
hörige. Programm sehen Sie in Abbildung 4-7. Wir definieren uns 
zuerst zwei neue Wörter, die wir benötigen. Das erste, SQUARE, 
ist uns bereits aus Abschnitt 2-3 unter dem Namen ZWEITE bekannt. 
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Es entfernt die oberste Zahl von Stack und ersetzt sie durch ihr 
Quadrat (die zweite Potenz) . Das zweite Wort, PT, druckt eine 
Zahl in einem Datenfeld mit einer Breite von 15 Spalten. 

Die Definition des Wortes zur Berechnung des pythagoreischen Zah 
lentripels beginnt auf Zeile 3. Wir haben dem Wort den Namen 
PYTHTRIP gegeben. Es zeichnet sich durch drei verschachtelte 
Schleifen aus: eine äußere Schleife, in die zwei weitere Schlei 

fen eingeschachtelt sind, nämlich eine mittlere Schleife (inner 
halb der äußeren Schleife) und eine innerste Schleife, die in die 
anderen beiden eingebettet ist. 

Wir wollen einmal sehen, wie unser Wort funktioniert. Die Zeile 3 
legt erst einmal den Testwert 100 und den Schleifenindex 1 auf 

den Stack. Diese werden von DO entfernt und auf den Return-Stack 
gelegt. Damit sind alle nötigen Vorkehrungen für die äußere 
Schleife getroffen. Das nächste Wort, I, dupliziert den Laufindex 
der äußeren Schleife auf den Stack. Diesen verdoppeln wir durch 

DUP und 1 assen uns von SQUARE de ren Quadrat berechnen. Nach Be 
endigung der Zeile 3 befinden sich also auf dem Stack der Index 

der äußeren Schleife sowie dessen Quadrat (das Quadrat ist zu 

oberst) . Die nächste Zeile leitet die mittlere DO-Schleife ein. 

Es ist sehr wichtig, daß nach einem Durchgang durch die mittlere 
Schleife der oberste Stack-Eintrag unverändert bleibt. Er muß 
nach Vollendung der mittleren Schleife nach wie vor den Laufindex 
der äußeren Schleife und dessen Quadrat enthalten. Zeile 4 legt 
erst einmal die 100 auf den Stack. Anschließend besorgen wir uns 

mit I den Index der äußeren Schleife. Wir tun dies, um die mehr 
malige Berechnung desselben Zahlentripels zu vermeiden. Wenn wir 
z.B. die Zahlen 3, 4 und 5 gefunden haben, dann wollen wir nicht 

auch noch 4, 3 und 5 finden. Dadurch wird unser Programm um eini 

ges schneller. Nachdem so der Testwert und der Schleifenindex für 
die mittlere Schleife vorbereitet worden sind, holt sich das DO 
von Zeile 4 diese beiden Werte vom Stack und pusht sie auf den 
Return-Stack. Als nächstes kommt der DUP-Befehl an die Reihe. An 
dieser Stelle duplizieren wir somit das Quadrat des Index der 
äußeren Schleife. Dann lassen wir uns durch I den Index der mit 
tleren Schleife auf den Stack legen, den wir mittels SQUARE 
quadrieren. Das letzte Wort auf Zeile 4, der Befehl +, sorgt 
dafür, daß die Zahl an oberster Stack-Position sich nun aus dem 
Quadrat der Indizes der äußeren A nd mittleren Schleife ergibt. 
Dies ist aber nichts anderes als a + b , wobei a den Index der 
äußeren und b den Index der mittleren Schleife darstellt. 
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0 

( Pythagoreische Zahlentripel 

) 



1 

: SQUARE 

DUP * ; 





2 : 

: PT 15 .R 






3 : 

: PYTHTRIP 

100 1 DO I 


DUP 

SQUARE 


4 


100 I 

DO 

DUP 

I SQUARE + 


5 


142 I 

DO 

DUP 

I SQUARE 

DUP 

6 


0 = 

IF I J 

6 PICK 

CR PT PT 

PT THEN 

7 


0< 

IF 

LEAVE 

THEN 


3 


LOOP 


DROP 



9 


LOOP 

' DROP 


DROP 



1 0 LOOP CR : 

1 1 
12 
1 3 
14 
1 5 

ABBILDUNG 4-7: Ein Programm zur Berechnung pythagoreischer 

Zahlentripel zwischen 1 und 100 

Jetzt kommt die innerste Schleife an die Reihe. Auch hier ist es 
wichtig, daß der Stack nach jedem Durchlauf durch diese Schleife 
unverändert bleibt. Zeile 5 gibt als erstes den Testwert 142 auf 
den Stack. Falls nämlich a und b gleich 100 oder kleiner sind, 
dann kann c, d A r Index der inneren A Schlei A e, nicht größer als 142 
sein (denn 142 ist größer als 100 + 100 ) . Als nächstes liefert 

uns I den Index der mittleren Schleife, der als Anfangswert für 
den Laufindex der inneren Schleife dient, während 142 der Test 
wert dieser Schleife ist. Den Grund, als Testwert für die inner 

ste Schleife 142 zu nehmen, haben wir bereits dargestellt. Daß 
wir den Index der mittleren Schleife als Anfangswert für den 
Laufindex der innersten Schleife setzen, liegt daran, daß c nicht 
kleiner als a oder b sein kann. Die innerste Schleife soll ja 
alle möglichen Werte für c testen, und unmögliche Werte wollen 

wir dabei gar nicht erst betrachten. Das innerste DO in Zeile 5 

entfernt diese Schleif enp A rame A er und pusht sie auf den Return- 
Stack. Jetzt ist wieder a + b oberstes Stack-Element, welches 
mittels DUP dupliziert wird. Wir besorgen uns mit I den Index der 
inneren Schleife, quadrieren ihn mit SQUARE und subtrahieren 
diesen Wert vom zweiten Stack-Eintrag, A o da A nacjjj Ausführung von 
- der Stack zuoberst das Ergebnis von a + b - c” enthält. Falls 

diese Zahl gleich 0 ist, dann haben wir ein pythagoreisches 
Zahlentripel gefunden. 
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Diesen Test nehmen wir in Zeile 6 vor. Das Wort 0 = liefert ein 

Flag, das wir mit IF auswerten. Falls es wahr ist, bedeutet dies, 
daß wir eines der gesuchten Tripel gefunden haben. Dieses wollen 
wir natürlich auf dem Bildschirm ausgeben. Die Wörter I und J 

hinter dem IF-Befehl legen die Laufindizes der innersten und 

mittleren Schleife auf den Stack. Der PICK-Befehl sorgt zusammen 

mit der Zahl 6, die zuvor auf den Stack gelegt wird, dafür, daß 
der Index der äußersten Schleife nach oben befördert wird. Wir 
haben somit alle 3 gewünschten Indizes an den richtigen Stellen 
und können sie mit unserem selbstdefinierten PT ausdrucken las 
sen. Wenn wir allerdings keines der gesuchten Zahlentripel gefun 
den haben, dann war das Flag, das in Zeile 6 mittels 0 = getestet 
wurde, falsch, und die Befehle zwischen IF und THEN werden igno 
riert . 

Wenn das Quadrat des innersten Schleifenindex größer wird als die 
Summe der Quadrate der beiden äußeren Schleifenindizes, dann gibt 
es keinen Grund, die innerste Schleife noch weiter zu durch 
laufen. Dieser Sachverhalt wird in Zeile 7 überprüft. Falls das 
Wort 0< ein wahres Flag ergibt, dann verlassen wir mittels LEAVE 
die innerste Schleife. Wie Sie bereits wissen, erzwingt LEAVE, 
daß der Testwert der gerade in Ausführung befindlichen Schleife - 
in diesem Fall der innersten - gleich dem Schleifenindex gemacht 
wird. Das führt dazu, daß bei der Erreichung des LOOP diese 
Schleife (vorzeitig) verlassen wird. Wir befinden uns aber inner 
noch in der mittleren Schleife. Ehe wir jedoch einen neuen Durch 
gang durch die mittlere Schleife in Angriff nehmen können, müssen 
wir den Stack wieder in den Zustand überführen, in dem er sich 
vor Eintritt in die innerste Schleife befand. Nun haben wir in 
Zeile 4 mittels DUP den Wert von a A +' d auf den Stack dupli 
ziert; diesen müssen wir jetzt wieder loswerden. Dafür sorgt das 
Wort DROP in Zeile 8 . Wenn FORTH nun auf das Wort LOOP in Zeile 9 
stößt, dann unternimmt es einen weiteren Durchgang durch die 
mittlere Schleife, vorausgesetzt deren Endekriterium ist noch 
nicht erreicht. Wir wiederholen diesen ganzen Prozeß und testen 
dabei immer wieder den Index der innersten Schleife, bis die 
mittlere Schleife insgesamt lOOmal durchlaufen wurde. Danach, 
also nach Beendigung der mittleren Schleife, müssen wir den Index 
der äußeren Schleife und dessen Quadrat vom Stack entfernen, um 
alles für einen erneuten Durchgang durch die äußerste Schleife 
vorzubereiten. Dazu dienen die beiden DROP von Zeile 10. Danach 
geht ' s erneut in die äußerste Schleife, und der ganze Vorgang 
wiederholt sich erneut. 
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Sicher ist Ihnen aufgefallen, daß wir beim "Layout" unseres Pro 
gramms darauf geachtet haben, jede Schleife eingerückt im Ver 
hältnis zur vorherigen darzustellen. Dadurch wird das Programm 
übersichtlicher, denn Sie sehen sofort, welche Schleife in welche 
eingeschachtelt ist . Lesbarere Programme sind aber leichter zu 
verfolgen und entsprechend fehlerfrei zu machen. 

Noch ein weiterer wichtiger Aspekt läßt sich an diesem Beispiel 
nachvollziehen. Wenn Sie Schleifen programmieren, dann sollten 
Sie darauf achten, daß der Stack nicht mit Daten überladen wird. 
Dies kann dazu führen, daß Sie unwissentlich Ihr Betriebssystem 
überschreiben, wodurch sich Ihr Rechner "totstellt" und nurmehr 
durch einen Kaltstart "wiederbelebt" werden kann. Ferner sollten 
Sie darauf achten, keine sog. Endlosschleifen zu schreiben, also 
Schleifen, die niemals abbrechen. So etwas ergibt sich etwa dann, 
wenn das Inkrement in einer Schleife den Wert 0 hat. Bei jedem 
Durchgang durch die Schleife würde 0 auf den Schleifenindex ad 
diert werden, wodurch sich dieser natürlich niemals ändert und 
der Testwert auch nie erreicht wird. Eine andere Möglichkeit für 
Endlosschleifen ergibt sich, wenn sowohl der Anfangs- als auch 
der Testwert positiv, das Inkrement aber negativ ist. 


4 . 6 Bedingte Schleifen 


Wir können jetzt mit DO und LOOP Schleifen programmieren. Bei 
diesen Schleifen liegt von Anfang an fest, wie oft sie durchlau 
fen werden (durch Angabe des Testwerts und des Anfangswerts für 
den Laufindex) , und es gibt keine elegante Methode, sie vorzeitig 
zu verlassen. Man kann zwar in den Schleifenkörper ein IF mit 
einem LEAVE einbauen (vergleiche das letzte Programmbeispiel), 
doch ist diese Methode nicht besonders übersichtlich, und es gibt 
- wie wir sehen werden - dafür elegantere Lösungen. Schleifen vom 
zisher besprochenen Typus, bei denen "unerbittlich" eine festge 
setzte Anzahl von Schleifendurchgängen ausgeführt werden, nennt 
•an unbedingte Schleifen. Eine andere Art von Schleifen, die sog. 
zedinqten Schleifen, erlaubt es, auf komfortable Weise Bedingun 
zen für ein vorzeitiges Verlassen der Schleife mit anzugeben. In 
diesem Abschnitt werden wir einige Möglichkeiten zum Programmie 
ren von solchen bedingten Schleifen kennenlernen. 
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BEGIN und UNTIL - Die FORTH-Wörter BEGIN und UNTIL dienen zum 
Programmieren von bedingten Schleifen. Mit diesen beiden Wörtern 
gebildete bedingte Schleifen haben die folgende allgemeine Form: 


BEGIN anweisungen a (flag) UNTIL 


(4-22) 


Dies funktioniert wie folgt. Wenn der FORTH-Interpreter zum er 
sten Mal auf das Wort BEGIN trifft, dann führt er die "anweisun 
gen a" aus. Beim Auftauchen von UNTIL wird der oberste Stack-Ein 
trag entfernt und als Flag behandelt. Dieses Flag kommt in der 
Regel durch Operationen innerhalb der "anweisungen a" auf den 
Stack. Wenn das Flag falsch ist, dann werden die "anweisungen a" 
wiederholt. Dies geht so lange weiter, bis das Flag wahr wird. In 
diesem Fall wird die Schleife verlassen, und FORTE führt die Wor 
te hinter UNTIL aus. Das Wort UNTIL hat folgende Stack-Relation: 


n -> (4-23) 

Als Beispiel für eine bedingte Schleife wollen wir ein FORTH-Wort 
schreiben, das eine beliebige Anzahl von Zahlen aufaddiert . Wenn 
wir das Wort ADDER aufrufen, dann fordert es den Benutzer zur 
Eingabe einer Zahl auf, indem es ein Fragezeichen auf den Bild 
schirm bringt. Nach Eingeben einer Zahl (und Drücken der RETURN- 
Taste) erscheint erneut das "?". Auf diese Art können Sie eine 
beliebige Anzahl von Zahlen eingeben; die Zahleneingabe wird 
durch eine Null beendet. Wenn das Programm bemerkt, daß Sie 0 
eingegeben haben, dann bricht es die Schleife ab und gibt die 
Summe aller bisher eingegebenen Zahlen aus. Sie sehen das Pro 
gramm in Abb . 4-8. 

0 ( Summe einer beliebigen Anzahl von Zahlen ) 

1 : ADDER 0 BEGIN #IN DUP ROT + SWAP 

2 0 = UNTIL CR . ; 

3 

4 

5 

ABBILDUNG 4-8: Ein Programm zum Auf addieren einer 
beliebigen Anzahl von Zahlen 
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' «ter . den wir uns nun den Einzelheiten dieses Programms zu. Als 

erstes pushen wir 0 auf den Stack. Dann wird durch BEGIN die 
re-dingte Schleife eingeleitet. Die erste Anweisung innerhalb der 
Acr.leife ist das Wort #IN , welches die Eingabeaufforderung ? auf 
der. Bildschirm bringt und so lange wartet, bis der Benutzer eine 
lar.l eingegeben hat. Diese Zahl duplizieren wir. Dann holen wir 
_r . s mit ROT den dritten Stack-Eintrag an die oberste Position; 

:ei Eintritt in die Schleife ist dies eine 0, bei den nachfolgen 
der Schleifendurchgängen befindet sich an dieser Stelle jedoch 

£ Summe der bisher eingegebenen Zahlen. Mittels + addieren wir 

^azu die letzte Benutzereingabe. Diese Zahl wird anschließend von 
£VX? an die oberste Stack-Position befördert. Wir testen nun mit 
1 = , ob es sich dabei um eine 0 handelt. Bekanntermaßen entfernt 

I = die Testzahl und legt statt ihrer ein Flag auf den Stack. 

I.eses ist nur dann wahr, wenn die zum Vergleich herangezogene 
lar.l gleich 0 war. Das 0 = ist auch Grundlage für die Entschei- 
r_r . g von UNTIL. Ist es falsch, dann erfolgt ein erneuter Durch- 
za_-.g durch die Schleife, was bedeutet, daß die Befehle zwischen 
5EC-IN und UNTIL erneut durchlaufen werden. Wir haben die Schleife 
;z geschrieben, daß am Ende eines Schleifendurchlaufs die Summe 
£er bisher eingegebenen Zahlen an oberster Stack-Position steht. 

Bat nun der Bediener zuletzt eine 0 eingegeben, dann ist das von 
I = erzeugte Flag in Zeile 2 wahr. In diesem Fall wird die 
Ect-eife verlassen, wir erzeugen mittels CR einen Zeilenvorschub 
_ri geben die bisher berechnete Summe aus. 

EEGIN, WHILE und REPEAT - Mit diesen drei Worten kann in FORTH 
e_ne andere Art von bedingter Schleife formuliert werden. Diese 
:'z.z die allgemeine Form: 


BEGIN anweisungen a (flag) WHILE anweisungen b REPEAT (4-24) 

I_r . e mit BEGIN, WHILE und REPEAT gebildete Schleife funktioniert 
:: _ ger . dermaßen . Der Anfang der Schleife wird durch BEGIN einge- 
-e-iet . Zuerst einmal werden die "anweisungen a" ausgeführt. 

HJELE, welches hinter diesen Anweisungen kommt, behandelt den 
leersten Stack-Eitt . tra<g als Plag und entfernt ihn von dort. Falls 
das Flag wahr ist, dann sorgt WHILE dafür, daß die "anweisungen 
r" ausgeführt werden und anschließend zum Anfang der Schleife 
— 'iruitelbar hinter BEGIN zurückgekehrt wird. Es werden in diesem 
also auch die "anweisungen a" erneut ausgeführt. Ist aber 
ia? Blag, das durch WHILE getestet wird falsch, dann wird die 
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Schleife verlassen, und die "anweisungen b" gelangen nicht zur 
Ausführung. Vielmehr werden die Befehle ausgeführt, die sich an 
das Wort REPEAT anschließen. Diese Arbeitsweise sorgt dafür, daß 
die mit BEGIN-WHILE-REPEAT gebildete Schleife so lange ausgeführt 
wird, solange eine Bedingung wahr ist; außerdem kann diese Bedin 
gung an beliebiger Stelle innerhalb der Schleife deren Verlassen 
erzwingen. Andererseits wird eine BEGIN-UNTIL-Schleife so lange 
ausgeführt, solange eine Bedingung falsch ist, und diese Schleife 
kann nur am Ende verlassen werden. 

Als Beispiel wollen wir das Wort zur Berechnung der Fakultät 
einer Zahl (vergleiche Abschnitt 4-3) neu definieren. Diese Al- 
ternative zu unserer bereits bekannten Definition sehen Sie in 
Abb. 4-9. 

0 ( Alternative Fakultätsdefinition ) 

1 : FACT DUP BEGIN 1 - DUP 1- 0> WHILE 

2 DUP ROT * SWAP REPEAT 

3 SWAP . DROP ; 

4 

5 

6 

7 

8 

9 

1 0 

1 2 

1 3 

14 

15 


ABBILDUNG 4-9: Alternative Definition der Fakultät 


Wie bereits zuvor (4-15) geben wir unserem Wort den Namen FACT. 

Nun zu den Einzelheiten dieser Definition: Bei Aufruf von FACT 

sollte sich eine Zahl auf dem Stack befinden, deren Fakultät 
berechnet werden soll. Diese Zahl wird zuerst in Zeile 1 dupli 
ziert, ehe wir in die Schleife eintreten. Innerhalb der Schleife 
wird die Zahl als erstes dekrementiert, wir ziehen mittels 1- 1 

von der Zahl ab. Das Wort DUP dupliziert diese dekrementierte 

Zahl, wonach wir sie mit 1- erneut dekrementieren . Das Ergebnis 
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dieses "Zurückzählens" testen wir nun mit 0>. Dieses Wort legt 
bekanntermaßen ein wahres Flag auf den Stack, wenn dessen ober 
ster Eintrag größer Null war. WHILE entfernt dieses Flag; falls 
es wahr ist, geschieht nichts weiter. FORTE fährt einfach mit der 
Schleife fort und führt das DUP aus. Der Stack enthält nun die 
Originalzahl, welche wir n nennen wollen und darüber zweimal 
diese Originalzahl um 1 vermindert. Mit ROT wird die Originalzahl 
an oberste Stack-Position gebracht. Jetzt berechnet das FORTE- 
Wort * das Produkt n*(n-l) und legt es auf den Stack. Nach dem 

SWAP befindet sich n-1 an oberster Stack-Position und n*(n-l) an 
zweiter Stelle. Danach erfolgt ein Wiedereintritt in die Schlei 
fe. Der oberste Stack-Eintrag wird um 1 vermindert. Nach dem 
zweiten Durchgang durch die Schleife haben wir somit n*(n-l)*(n- 
2) berechnet. In dieser Art geht das Programm weiter, bis der 
zweite 1— Befehl in Zeile 1 die Zahl auf 0 reduziert. In diesem 

Fall ist das Flag falsch. Stößt aber WHILE auf ein falsches Flag, 
dann übergeht es den Rest der Schleife, also die Anweisungen zwi 
sehen WHILE und REPEAT . Die Schleife wird beendet. Mit SWAP in 
Zeile 3 kommt die gewünschte Fakultät an die oberste Stack- 
Position und wird anschließend durch den Punktbefehl ausgegeben. 
Ehe wir die Definition des Wortes beenden, bereinigen wir noch 
mit DROP den Stack. 

Bedingte Schleifen hören nur dann mit der Arbeit auf, wenn eine 
bestimmte Bedingung erfüllt ist. Wenn sich in Ihrem Programm ein 

Fehler befindet, dann kann es sein, daß diese Bedingung nie ein- 
tritt und eine Endlosschleife zustande kommt. Wenn beim Austesten 
eines selbstdefinierten Wortes der Computer "einzuschlafen" 

scheint, dann kann durchaus eine solche Endlosschleife dafür 
verantwortlich sein. Überprüfen Sie Ihre Programne also sorgfäl 
tig, um es nicht soweit kommen zu lassen. 


4.7 Einige zusätzliche Vergleichswörter 


FORTE stellt noch einige weitere Vergleichsworte zur Verfügung, 
die wir in diesem Abschnitt erörtern wollen. Da wir die grundle 
gende Funktionsweise von Vergleichswörtern bereits kennengelernt 
zaben, werden wir die neuen Wörter nur kurz vorstellen. 
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?DUP - D ieses Kommando dupliziert die oberste Zahl auf dem Stack, 
vorausgesetzt, diese ist ungleich 0. Ist der oberste Stack-Ein 
trag aber gleich 0, dann macht ?DUP nichts. 

ABORT - Das FORTH-Kommando ABORT bereinigt sowohl den Datenstack 
als auch den Return-Stack, beendet das Programm und übergibt die 
Kontrolle an das Terminal. Man kann damit also sowohl den Stack 
bereinigen als auch ein Programm beenden. Einige FORTH-Systeme 
verwenden für diesen Zweck ein etwas anderes Kommando, nämlich 
ABORT". Man benutzt es in der Form 


ABORT" text " (4-25) 

Die Funktionsweise von ABORT" ist ähnlich wie die von ABORT, 
außer daß dieses Wort aufgrund eines Flags in Aktion tritt. Wenn 
das Flag an oberster Stack-Position wahr ist, dann löscht ABORT" 
ebenfalls die beiden Stacks und beendet das Programm, druckt aber 
zusätzlich noch das Textmaterial zwischen den Anführungszeichen 
auf dem Terminal aus. Man kann mit ABORT" also die Programmaus 
führung abbrechen, um irgendwelche ungewünschten Effekte zu ver 
hindern. Ist das Flag falsch, dann beseitigt ABORT" einfach das 
Flag und hat ansonsten keine Wirkung. 

Wir wollen ein kleines Beispiel für den Einsatz von ABORT" geben. 
Stellen Sie sich vor, daß Sie eine Schleife geschrieben haben, 
deren Schleifeninkrement entweder im Programm berechnet oder vom 
Benutzer eingegeben wird. Ergibt sich nun (entweder durch Berech 
nung oder durch Benutzereingabe) ein Inkrement von 0, so würde 
dies zu einer der gefürchteten Endlosschleifen führen. Sie können 
diesen Fall aber mit ABORT" abfangen. Betra'chten Sie dazu den 
folgenden Ausschnitt aus einem FORTH-Wort : 

DUP 0= ABORT" PROGRAMM BEENDET " +LOOP 

Der oberste Stack-Eintrag wird dupliziert und anschließend mit 0= 
verglichen. Wir haben jetzt ein Flag auf dem Stack stehen, das 
von ABORT" beseitigt wird. Falls es falsch ist, dann hat ABORT" 
keine Wirkung. Ist das Flag andererseits wahr, dann wird das Pro 
gramm beendet, und wir erhalten die Meldung PROGRAMM BEENDET auf 
dem Bildschirm. 


150 



4 Progranunsteuerung - Strukturiertes Programmieren 


Y/N - Dieses Wort ist kein Teil von FORTH-79, ist jedoch in MMS- 
FORTH implementiert und wird deshalb hier dargestellt. Bei Aus 
führung von Y/N unterbricht das Programm seine Arbeit und bringt 
die Meldung (Y/N)? auf den Bildschirm. Der Benutzer muß nun ent 
weder mit Y (für englisch "yes" = ja) oder N (für "nein") antwor 
ten. Um diese Antworten in den Computer einzugeben, braucht die 
RETURN-Taste nicht betätigt zu werden. Nach Eingabe eines dieser 
beiden Zeichen wird ein Flag auf den Stack gelegt . Dieses ist 
falsch, wenn der Benutzer die Y-Taste betätigt hat und bei Einga 
be von N wahr. Das Wort verhält sich somit genau anders herum, 
als man es erwarten würde; gehen Sie deshalb damit vorsichtig um! 
Seme Stack-Relation ist : 


-> 

n f lag 


(4-26) 


Sie können also mit Y/N dem Benutzer Entscheidungsfragen (Ja- 
' . ’em-Fragen) stellen. 

Sie Abbildung 4-10 liefert ein Beispiel für den Einsatz von Y/N. 
*ir definieren darin ein Wort mit dem Namen PTZ2. Dieses Programm 
druckt die erste Potenz von 2 (also die 2) und fragt dann den 
Senutzer, ob es weitermachen soll. Antwortet dieser mit Y, dann 
•ird die nächste Zweier-Potenz (4) gedruckt. Das Programm macht 
iamit so lange weiter, bis der Benutzer auf das Fragezeichen des 
Programms mit einem N antwortet. Sehen wir uns Abb . 4-10 an. Die 

i'»eierpotenzen werden in einer BEGIN-UNTIL-Schleife berechnet und 
ausgegeben. Vor dem UNTIL erfolgt jedoch ein Aufruf von Y/N. Ant- 
•crten wir jetzt mit Y, dann wird ein Flag mit dem Wahrheitswert 
falsch auf den Stack gelegt und somit die Schleife erneut durch 
laufen. Reagiert der Benutzer auf die Nachfrage des Systems mit 
S, dann findet UNTIL ein wahres Flag auf dem Stack vor und bricht 
die Schleife ab. 

0 ( EIN BEISPIEL FÜR Y/N ) 

1 : PTZ2 1 BEGIN 2 * DUP CR 

2 " WOLLEN SIE WEITERMACHEN " CR 

3 Y/N CR UNTIL ; 

4 


ABBILDUNG 4-10: Programm, das vom Benutzer abgebrochen wird 


151 


4 Programmsteuerung - Strukturiertes Programmieren 


NOT - Das FORTH-Kommando NOT entfernt den obersten Stack-Eintrag 
und betrachtet ihn als Flag. Ist das Flag wahr, dann legt es ein 
falsches Flag auf den Stack. Ist das Ausgangsflag aber falsch, 
dann wird ein wahres Flag auf den Stack gelegt. Die Stack-Rela 
tion von NOT lautet 


n f lagl n flag2 


(4-27) 


Wenn wir etwa dem Y/N-Befehl das Wort NOT folgen lassen, dann ha 
ben wir als Ergebnis ein wahres Flag, wenn der Benutzer Y einge 
geben hat. Bei Eingabe von N ist das Flag hingegen falsch. 


4 . 8 Verzweigung mittels CASE 


In diesem Abschnitt werden Sie ein weiteres Verfahren kennenler 
nen, mit dem man Verzweigungen in FORTH-Programmen erreichen 
kann. Hierbei handelt es sich um keine in FORTH-79 vorgesehene 
Möglichkeit, sie ist jedoch in MMSFORTH implementiert. Es wäre 
sehr komfortabel, wenn man in einem Programm zu verschiedenen 
FORTH-Wörtern verzweigen könnte. Wir könnten z.B. wünschen, unter 
einer Bedingung ein FORTH-Wort auszuführen, während unter einer 
anderen Bedingung ein anderes zur Ausführung gelangen soll. Die 
sen Fall nennt man Verzweigung durch Auswahl. Diese Verzweigungs 
möglichkeit wird durch das FORTH-Wort NCASE zur Verfügung ge 
stellt. Programme mit NCASE haben folgende allgemeine Form: 


NCASE n x n 2 n 3 " WORTA WORTB WORTC 
OTHERWISE anweisungen q CASEND anweisungen x (4-28) 


Hierbei stellen n A , nyid n A eine Liste von Integers zwischen 
-128 und 127 dar. An diese schließt sich ein e inzelnes " sowie 
eine Liste von FORTH-Wörtern an. Im Beispiel (4-28) haben wir 
drei Zahlen und drei FORTH-Wörter , es können aber genausogut mehr 
Zahlen und Wörter bzw. weniger Zahlen und Wörter sein. Die Anzahl 
der Zahlen vor und der Wörter nach dem Anführungszeichen muß 
jedoch gleich sein. An die Liste der FORTH-Wörter schließt sich 
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das Schlüsselwort OTHERWISE an. Dahinter können beliebige FORTH- 
Ausdrücke stehen. Anschließend geben Sie das Wort CASEND ein. 

Der ganze Ausdruck funktioniert folgendermaßen: Die Zahlenliste 

korrespondiert mit der Liste von FORTH-Wörtern . Bei Ausführung 
von NCASE wird die oberste Zahl vom Stack entfernt. Falls Sie 

gleich n A ist, dann wird "WORTA" ausgeführt. Ist die Zahl gleich 
n A , dann kommt "WORTB" an die Reihe. Nur eines der Wörter aus 

der Liste kommt zur Ausführung; die "anweisungen q" werden 
ausgeführt. Als nächstes werden - falls vorhanden - die "anwei 
sungen x" hinter dem CASEND ausgeführt. Entspricht die Zahl, die 

vor Ausführung von NCASE auf dem Stack war, k einer der Zahlen der 
Liste, dann wird auch keines der Wörter in der Liste hinter dem " 
aufgerufen. Statt dessen werden die "anweisungen q" abgearbeitet. 
Danach schließen sich die "anweisungen x" hinter dem CASEND an. 

NCASE besitzt folgende Stack-Relation: 


n 


-> 


(4-29) 


In Abbildung 4-11 sehen Sie ein Beispiel für den Einsatz von 
NCASE. Hierbei handelt es sich um ein Programm, das die zweite 

und dritte Zahl auf dem Stack miteinander addiert, subtrahiert 
oder multipliziert. Welche dieser drei Operationen ausgeführt 
wird, bestimmt die erste Zahl auf dem Stack. Ist der oberste 

Stack-Eintrag gleich 1, dann wird addiert; handelt es sich dabei 
um eine 4, dann wird subtrahiert. Ähnlich sorgt eine 7 für Multi 
plikation. (ln der Zahlenliste innerhalb von NCASE müssen die 

Zahlen nicht in numerischer Reihenfolge stehen. Die erste Zahl 
der Zahlenliste entspricht dem ersten Wort in der Wörterliste, 

die zweite Zahl in der Zahlenliste entspricht dem zweiten Wort in 
der Wörterliste usw.) 

Betrachten wir nun das Programm. In den ersten drei Zeilen defi 
nieren wir die neuen Wörter ADDIERE, SUBTRAHIERE und MULTIPLI 
ZIERE, die jeweils 2 Zahlen vom Stack entfernen, die angegebene 
Operation ausführen und deren Ergebnis auf den Bildschirm brin 
gen. In Zeile 4 beginnen wir die Definition von AUSWAHL. Bei 
Ausführung von NCASE wird die oberste Zahl vom Stack entfernt. 
Handelt es sich um eine 1, dann wird das Wort ADDIERE aufgerufen, 
worauf sich die Anweisungen hinter CASEND anschließen. Wurde eine 
7 vom Stack entfernt, dann wird statt dessen das Wort MULTIPLI 
ZIERE ausgeführt. Ist die auf dem Stack befindliche Zahl jedoch 
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weder eine 1 noch eine 4 oder 7, dann gelangt keines der Wörter 
zwischen dem Anführungszeichen und OTHERWISE zur Ausführung; 
statt dessen werden in diesem Fall die Anweisungen zwischen 
OTHERWISE und CASEND bearbeitet. Das bedeutet, daß wir die Mel 
düng "FALSCHE AUSWAHL" geben. Die Befehle, die hinter CASEND ste 
hen, gelangen also auf jeden Fall zur Ausführung. Das bedeutet, 
daß das Programm stets mit der Meldung "PROGRAMM BEENDET" auf 
hört . 


0 ( EIN BEISPIEL FÜR CASE ) 

1 : ADDIERE + . ; 

2 : SUBTRAHIERE - . ; 

3 : MULTIPLIZIERE * . ! 

4 : AUSWAHL NCASE 147 " ADDIERE SUBTRAHIERE MULTIPLIZIERE 

5 OTHERWISE " FALSCHE AUSWAHL " CASEND 

6 . " PROGRAMM BEENDET " ; 

7 

8 

9 

1 0 
12 

13 

14 

15 


ABBILDUNG 4—11: Ein Beispiel für den Einsatz von NCASE 


4 . 9 Strukturierte Programmierung 


Ein Programm ist dann strukturiert, wenn i -a xlTf £ A 1?/ 

(sog. Moduln) gegliedert ist, die leicht zu verstehen und zu ver 
bessern sind. FORTH bietet sich für die strukturierte Program 
mierung geradezu an, denn die meisten Programme werden fast auto 
matisch in kleine selbständige Untereinheiten - die oben erwähn 
ten Module - aufgeteilt. In diesem Abschnitt stellen wir genauer 
dar, wie man strukturierte Programme schreibt. 
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4.9.1 Modularisierung 


Ein FORTH-Programm besteht in der Regel aus einer Vielzahl von 
Kommandos. So haben wir beispielsweise in der Abbildung 4-7 in 
nerhalb des selbstdefinierten Wortes PYTHTRIP, welches das Haupt 
Programm ist, einen Aufruf der selbstdefinierten Wörter SQUARE 
und PT. Wenn es sich um ein sehr kompliziertes Programm handeln 
würde, dann könnte das Hauptprogramm eine Vielzahl anderer 
selbstdefinierter Wörter auf rufen. Diese aber können ihrerseits 
wieder andere Wörter rufen. Im allgemeinen sollten Sie versuchen, 
Ihre Programme so kurz wie möglich zu halten. Als Faustregel für 
die Länge von Programmen gilt, daß sie keinesfalls die Größe 
eines Bildschirms überschreiten sollten. Auf diese Art halten Sie 
jedes Wort möglichst einfach, so daß Sie es leicht testen und 
fehlerfrei machen können. Kompliziertere Programme werden dann 
mit Hilfe bereits entwickelter und getesteter Wörter aufgebaut . 
Dieses Verfahren macht auch die Programmierung im Team möglich; 
verschiedene Programmierer können so an unterschiedlichen Worten 
arbeiten. Natürlich können Sie mit der Arbeit an einfachen Worten 
so lange nicht beginnen, solange nicht die gesamte Struktur des 
Programms festgelegt ist. Dieses muß der erste Arbeitsschritt 
sein . 


4.9.2 Algorithmen - Progranmentwicklung 


Wenn Sie ein Programm schreiben - egal, ob einfach oder kompli 
ziert - dann müssen Sie sich dafür einen allgemeinen Plan zu 
rechtlegen. Dieser Plan, der die allgemeine Vorgehensweise be 
schreibt, wird auch als Algorithmus bezeichnet. Ehe Sie sich an 
die tatsächliche Programmierarbeit machen, müssen Sie sich also 
über den zu verwendenden Algorithmus klar werden. Falls das Pro 
gramm einfach ist, dann mag es erscheinen, als ob dieser erste 
Schritt übergangen und das Programm gleich geschrieben werden 
könnte. In diesen Fällen hat der Programmierer den Algorithmus 
bereits im Kopf. Bei komplizierteren Programmen ist dieses Ver 
fahren unmöglich. Es sollte dann auf jeden Fall erst einmal eine 
"Ideensammlung" angelegt werden, die als Grundlage für die Ver 
feinerung des Algorithmus dienen kann. Erinnern wir uns an das 
Problem mit dem pythagoreischen Zahlentripel. Die erste Idee, die 
ein Programmierer zu diesem Problem haben könnte, besteht darin. 
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drei Schleifen ineinander zu schachteln. Die. - 2 beiden äußeren 

Schleifen sollen der Reihe nach alle Werte für a und b*" qenerie 

2 

ren, während die innere Schleife die Werte für c berechnet und 
diese mit der Summe von a und b vergleicht. Wenn die beiden 
Größen gleich sind, dann haben wir ein pythagoreisches Zahlentri 
pel gefunden. Dies ist auch die grundlegende Idee, nach der das 
Beispiel 4-7 konstruiert ist. Natürlich ist der Algorithmus jetzt 
noch nicht vollständig. Es gibt noch eine Menge von Details, die 
festgelegt werden müssen. Auch bei einem sehr komplizierten Pro 
gramm würde man ähnlich Vorgehen: zuerst skizziert man das allge 

meine Verfahren. Letztendlich wird dieses allgemeine Verfahren 
dann in Form eines FORTH-Wortes implementiert. In diesem Wort 
kann es eine Vielzahl von Unterworten geben. Solange wir uns noch 
am Anfang der Programmentwicklung befinden, legen wir nur fest, 
was diese Unterworte leisten sollen, belasten uns aber noch nicht 
mit der Frage, wie dies erreicht werden kann. Erst nachdem wir 
das Hauptwort geschrieben und fehlerfrei gemacht haben, wenden 
wir uns den einzelnen Unterworten zu und wiederholen dabei dieses 
Vorgehen. Wir entwickeln also für jedes Unterwort einen eigenen 
Algorithmus, welcher auch auf weitere Unterwörter zurückgreifen 
kann. Wir entwickeln und testen erst einmal diesen Algorithmus, 
ehe wir uns den Unterworten der nächsten Ebene zuwenden. 


Diesen Sachverhalt kann man in einem hierarchischen Diagramm 
darstellen. Ein Beispiel dafür sehen Sie in Abbildung 4-12. In 
dieser Abbildung ruft das oberste FORTH-Wort zwei weitere Unter 
Worte, a und c. Diese Unterwörter rufen ihrerseits die Unter 
Wörter b, d und e. Dabei greifen sowohl Unterwort a als auch Un 
terwort c auf Unterwort d zu. Erst wenn die Beziehung der einzel 
nen Wörter zueinander klar ist und wir uns vergewissert haben, 

daß unser Algorithmus fehlerfrei ist, sollten wir anfangen, die 
Wörter tatsächlich in FORTH zu implementieren. 

Die eben geschilderte Vorgehensweise nennt man Programmentwick 
lung von oben nach unten (Top-down design) . Sie erscheint dem 

Anfänger oftmals paradox. Man beginnt mit dem hierarchischen 

Diagramm, aus dem man das oberste Wort zur Programmierung aus 

wählt. Dies wird getestet, wobei jedoch noch keines seiner Unter 
Wörter bereits definiert ist. Damit das Hauptwort trotzdem ausge 
testet werden kann, versehen wir die benötigten Unterwörter mit 
Hilfsdefinitionen, sog. Proarammrümpf en . Diese Rümpfe führen 

keine tatsächlichen Berechnungen aus; sie übergeben jedoch gege 
benenfalls Testdaten an das Hauptprogramm, damit dieses richtig 
funktionieren kann. 
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| 1 i 

I Unterwort I 
I e I 

I I 


ABBILDUNG 4-12: Ein einfaches hierarchisches Diagramm 


Nachdem wir das Hauptprogramm überprüft und uns vergewissert 
haben, daß es richtig funktioniert, arbeiten wir der Reihe nach 
die einzelnen Unterwörter aus, indem wir deren Programmrümpfe 
durch tatsächliche Definitionen ersetzen. Bei der Entwicklung ei- 
— .es Unterwortes gehen wir wieder nach der Top-down-Methode vor. 
Verwendet ein Unterwort seinerseits weitere Unterwörter, so 
schreiben wir für diese Unterwörter nur Behelfsdefinitionen (Pro- 
crammrümpfe) , um uns ganz der Lösung des gerade betrachteten Pro- 
rlems (des Unterwortes der ersten Ebene) widmen zu können. Noch 
einmal zu Abbildung 4-12. Als erstes entwickeln wir das Haupt 
wort, wobei wir für die Unterwörter a und c nur Programmrümpfe 
verwenden. Als nächstes entwickeln und testen wir Unterwort a, 
wobei wir Hilfsdefinitionen für die Unterwörter b und d verwen- 
oer. Nachdem Unterwort a ausgetestet ist, wenden wir uns dem 
l'r. cerwort b zu. In dieser Art, also von oben nach unten durch das 
nerarchische Diagramm gehend, wird jedes einzelne Modul des kom- 
clexen Programms entwickelt und getestet. Das Verfahren erscheint 
Innen jetzt vielleicht umständlich; beim Entwickeln größerer 
Programme ist es jedoch eine große Hilfestellung. 
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4.10 Übungsaufgaben 


In den folgenden Übungsaufgaben sollen Sie selbst FORTH-Wörter 
definieren bzw. FORTH-Prograinme schreiben. Überprüfen Sie Ihre 
Lösungen selbst, indem Sie sie auf Ihrem Computer austesten. 
Halten Sie die einzelnen FORTH-Wörter so kurz wie möglich und 
versuchen Sie, komplizierte Aufgaben zu lösen, indem Sie eine 
Reihe von Unterwörtern aus einem Hauptwort heraus auf rufen . 


4-1 Was bedeutet der Ausdruck "Flag"? 

4-2 Schreiben Sie ein FORTH-Wort, das zwei Zahlen subtrahiert 
und deren Differenz ausgibt, falls sie ungleich sind, anson 
sten aber die Meldung DIE ZAHLEN SIND GLEICH auf den Bild 
schirm bringt . 

4-3 Schreiben Sie ein FORTH-Wort, das die kleinste von drei Zah 

len auf dem Stack ausgibt . Verwenden Sie dazu die Ver 

gleichswörter aus Abschnitt 4-1 . 

4-4 Wiederholen Sie Aufgabe 4-3, geben Sie diesmal aber die 

größte von drei Zahlen auf dem Stack aus . 

4-5 Wiederholen Sie Aufgabe 4-4, geben Sie diesmal aber den 

größten Absolutwert aus . 

4-6 Was bedeutet der Ausdruck "bedingte Verzweigung"? 

4-7 Schreiben Sie ein FORTH-Wort, das 3 Zahlen addiert und sie 
mit 4 multipliziert, wenn ihre Summe kleiner 50 ist. Wenn 
die Summe zwischen 50 und 70 liegt, dann sollen die Zahlen 
mit 6 multipliziert werden, ist die Summe größer als 70, 
dann multiplizieren Sie sie mit 8. 

4-8 Schreiben Sie ein FORTH-Wort, das die folgende Polynomial- 
Gleichung für verschiedene Werte von x berechnet: 

4x A + gx A + 5x + 3 

dabei soll gelten g = 4, falls x kleiner gleich 15 ist, und 
g = 9 für x größer 15. 
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4-9 Schreiben Sie ein FORTH-Wort, das die Summe aller Zahlen 
berechnet, die zwischen zwei Integers liegen. Das Wort 
liest also zwei Einträge vom Stack, die den unteren und obe 
ren Grenzwert für die Zahlenreihe angeben, und liefert die 
Summe der Zahlen innerhalb dieser Grenzen. Gehen Sie davon 
aus, daß der kleinere Grenzwert der oberste Stack-Eintrag 

ist . 

4-10 Schreiben Sie ein FORTH-Wort zur Berechnung des Polynoms 
x 3 - 2x 2 + 2x - 15 

für alle Werte von x zwischen 1 und 20. 

4-11 Schreiben Sie ein FORTH-Kommando, das die folgende Funktion 

für alle Werte von x zwischen -2 und 5 und für alle Werte 
von y zwischen -6 und 4 berechnet: 

3 2 

3xy - 2x + 5xy - 3x - 5y + 18 

4-12 Wiederholen Sie Aufgabe 4-9, verlassen Sie diesmal aber das 
Wort mittels LEAVE, wenn die Summe größer als 10000 wird. 

4-13 Schreiben Sie ein FORTH-Wort, das das Produkt aller ungera 

den Zahlen zwischen 1 und einer ungeraden Zahl an oberster 
Stack-Position berechnet. Das Programm sollte abbrechen, 
wenn das Produkt größer 20000 wird. In diesem Fall sollten 

Sie eine passende Fehlermeldung ausgeben. 

4-14 Wiederholen Sie Aufgabe 4-12, und verwenden Sie dabei die 

FORTH-Wörter BEGIN-UNTIL . 

4-15 Wiederholen Sie Aufgabe 4-13, und verwenden Sie dabei die 

FORTH-Wörter BEGIN-WHILE-REPEAT . 

4-16 Die Teilnehmer eines Kurses müssen jeweils 4 Prüfungen able- 
gen . Schreiben Sie ein modularisiertes FORTH-Wort (also ei 
nes, das seinerseits selbstdefinierte FORTH-Wörter ruft), 
welches folgende Berechnungen ausführt: Die Punktzahl in je 
der der vier Prüfungen wird auf den Stack gelegt. Dann soll 
das Programm den Durchschnitt des einzelnen Studenten aus 

diesen vier Tests berechnen und in Abhängigkeit davon eine 
Bewertung ausgeben. Bei einem Durchschnitt von 90 oder bes 
ser erhält der Student die Bewertung A. Liegt der Schnitt 
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zwischen 89 und 80, so wird die Bewertung B vergeben. Mit 
einem Schnitt zwischen 79 und 70 erzielt man C, zwischen 69 
und 60 D. Ist schließlich der Durchschnitt des Studenten 
schlechter als 59, dann geben Sie die Meldung DURCHGEFALLEN 
aus. Der berechnete Durchschnitt muß ganzzahlig sein. Wenn 
Sie die Division ausführen, sollten Sie den Quotienten um 1 
erhöhen, falls der Divisionsrest 2 oder mehr beträgt. 

4-17 Diskutieren Sie die Einsatzmöglichkeiten für das FORTH-Wort 

ABORT. 


4-18 Vergleichen Sie die beiden FORTH-Wörter ABORT und ABORT" . 


4-19 Wiederholen Sie Aufgabe 4-16, wobei diesmal das Programm 
nach beendeter Arbeit den Benutzer fragen soll, ob ein 
erneuter Durchgang gewünscht wird. Ändern Sie auch die Form 
der Dateneingabe. Das Programm soll seine Daten nicht auf 
dem Stack erwarten, sondern sie selbst vom Benutzer abfra- 
gen . 


4-20 Wiederholen Sie Aufgabe 4-19, 
FORTH-Wort NOT. 

4-21 Schreiben Sie ein FORTH-Wort, 
definierter FORTH-Wörter für 
Meldung ausgibt. (Denken Sie 
aus . ) 


und verwenden Sie diesmal das 

das mit Hilfe anderer selbst 
jeden Wochentag eine andere 
sich diese Meldungen selbst 


4-22 Was bedeutet der Ausdruck 11 strukturierte Programmierung"? 

4-23 Was bedeutet der Ausdruck "Programmentwicklung von oben nach 
unten" (Top-down design) ? 

4-24 Wiederholen Sie die Aufgabe 4-19, wobei Sie diesmal darauf 
achten, bei der Programmentwicklung von oben nach unten 
vorzugehen . 
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5 Grundlegendes Ober Zahlen 


Im überwiegenden Teil dieses Buches haben wir mit einfach genauen 
ganzen Zahlen (Integers) gearbeitet. Dieses Kapitel stellt das 

Arbeiten mit doppelt genauen Integers dar. Dabei können wir mit 
wesentlich größeren Zahlenbeträgen rechnen. Dies ist jedoch nicht 
der einzige Grund für die Einführung der doppelt genauen Inte 
gers . Wir werden nämlich in diesem Kapitel ein Verfahren, die 

sog. Skalierung kennenlernen, das es uns erlaubt, Integerarithme 
tik dort einzusetzen, wo normalerweise mit Bruchzahlen gerechnet 
wird. Weiterhin werden wir noch andere Formen der Integerarithme 
tik kennenlernen. 

Manchmal müssen wir mit sehr großen oder sehr kleinen Zahlen 
arbeiten. In diesen Fällen ist oftmals selbst die Arithmetik mit 
doppelt genauen Zahlen nicht ausreichend, und wir benötigen sog. 
Gleitkommazahlen . Diesen Zahlentyp werden wir im vorliegenden Ka 
pitel vorstellen. Gleitkommaarithmetik ist zwar kein Bestandteil 
von FORTH-79, findet sich jedoch in vielen anderen FORTH-Systemen 
und ist deshalb Gegenstand dieses Kapitels. Zwar benötigt die 

Gleitkommaarithmetik mehr Rechenzeit und Speicherplatz als die 

Arithmetik mit Integers, seien sie einfach oder doppelt genau, 
doch oftmals ist sie ganz praktisch. Wir werden deshalb in diesem 
Kapitel verschiedene Formen des Rechnens mit Gleitkommazahlen 
darstellen . 


5 . 1 Doppelt genaue Integers 


Iirfach genaue Integers beanspruchen eine Stack-Position. Wie wir 
r-ereits ausgeführt haben, kann man mit diesem Datentyp Zahlen 
zwischen -32678 und 32767 darstellen. Weil doppelt genaue Inte 
gers in zwei Stack-Positionen gespeichert werden, sind damit 
Zahlen zwischen -2147483648 und 2147483648 möglich. Im Abschnitt 
Z-5 haben wir bereits einige Details der Stack-Manipulation im 
Zusammenhang mit doppelt genauen Integers dargestellt. Jetzt wen 
den wir uns den Einzelheiten des Rechnens mit diesen Zahlen zu. 
Mar. sollte doppelt genaue Zahlen nur dann verwenden, wenn ihr 
rrcßer Wertevorrat unbedingt benötigt wird. Sie brauchen nämlich 
derzeit soviel Speicherplatz wie einfach genaue Zahlen; auch 
dauern Berechnungen mit diesen Zahlen länger. Weiterhin kann die 
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Fähigkeit zum Rechnen mit doppelt genauen Zahlen nicht schon vom 
Hersteller in Ihr FORTH-System eingebaut sein. Gegebenenfalls 
müssen Sie einige zusätzliche Blöcke in den Speicher laden, ehe 
Sie mit diesem Zahlentyp arbeiten können. In vielen FORTH-Imple- 
mentationen gibt es zu den meisten arithmetischen Befehlen für 
einfach genaue Integers ein Gegenstück für doppelt genaue Zahlen. 
Diese wollen wir im vorliegenden Abschnitt besprechen. Da die 
meisten Details der Arbeitsweise für beide Operationstypen gleich 
sind, werden wir nicht allzu detailliert darauf eingehen. 

D+ - Dies ist das Additionswort für doppelt genaue Integers; D+ 
entfernt zwei doppelt genaue Integers vom Stack und legt dort 
ihre Summe (als doppelt genaue Integer) ab. Die Summanden, mit 
denen D+ arbeitet, benötigen also vier Stack-Positionen. Leider 
gibt es keine Möglichkeit festzustellen, ob die Zahlen auf dem 
Stack einfach oder doppelt genau sind. Wenn Sie also vier einfach 
genaue Zahlen auf den Stack pushen und anschließend DH — ausführen, 
dann werden die beiden obersten Stack-Positionen so behandelt, 
als handle es sich dabei um eine doppelt genaue Integer. Ebenso 
geht es mit dem dritten und vierten Stack-Eintrag. Obwohl sich 
also vier einfache genaue Integers auf dem Stack befinden, wird 
FORTH die doppelt genaue Addition mit ihnen ausführen, was natür 
lieh das Ergebnis verfälscht. Die Stack-Relation für D+ lautet: 


d 


1 


d 2 -> d 


sum 


(5-1 ) 


Bekanntermaßen stellen wir mit d eine doppelt genaue Zahl dar, 
während n zur Darstellung von einfach genauen Integers dient . 
Anders gesagt: d steht für zwei Stack-Positionen, während n eine 
Stack-Position repräsentiert. 


5.1.1 Ein- und Ausgabe von doppelt genauen Integers 


Damit wir mit doppelt genauen Integers rechnen können, müssen wir 
sie irgendwie auf den Stack bringen. Glücklicherweise macht FORTH 
dies automatisch, wenn wir ihm anzeigen, daß es sich bei den 
Zahlen um doppelt genaue handelt. Dazu müssen wir nur irgendwo in 
der Zahl einen Dezimalpunkt mit aufnehmen. Wir könnten z.B. 34.56 
schreiben. Dies behandelt FORTH als die doppelt genaue Integer 
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3456. Stören Sie sich nicht an dem Dezimalpunkt: Er dient nicht 
zur Kennzeichnung von Nachkommastellen, sondern stellt lediglich 
ein Signal für den FORTH-Interpreter dar. Genausogut hätten wir 
3.456, 3456., 345.6 usw. schreiben können, denn all diese Dar 
Stellungen sind gleichwertig und bewirken, daß dieselbe Zahl (die 
doppelt genaue Integer 3456) auf den Stack gelegt wird. Über den 
Umgang mit Nachkommastellen (der sog. Gleitkommaarithmetik) wer 
den wir im nächsten Abschnitt noch einiges erfahren. Im Kapitel 
3-3 haben wir bereits erörtert, wie doppelt genaue Zahlen gespei 
chert werden. Erinnern Sie sich daran, daß die höchstwertigen 
Bits einer doppelt genauen Integer weiter oben im Stack abgelegt 
werden, so daß man eine positive einfach genaue Integer an ober 
ster Stack-Position ganz einfach in eine doppelt genaue Zahl 
verwandeln kann, indem man eine 0 auf den Stack pusht (vgl. Ab 
schnitt 3-3) . Wenn wir also die Zahl 35 als doppelt genaue Inte 
ger speichern wollen, dann sind folgende Eingaben völlig gleich 
wertig : 


35. (RETURN) (5-2a) 

35 0 (RETURN) (5— 2b) 


Dieses Thema wird ausführlicher in Abschnitt 3-3 behandelt. 

D. - Das FORTH-Wort D. entfernt die oberste doppelt genaue Inte 
ger vom Stack und gibt sie aus. D. funktioniert also genauso für 
doppelt genaue Integers, wie es das Punktkommando für einfach 
genaue Integers tut. Seine Stack-Relation: 


d -> 


(5-3) 


Als Beispiel wollen wir ein FORTH-Wort schreiben, das die beiden 
obersten doppelt genauen Zahlen vom Stack entfernt und ihre Summe 
ausgibt : 

: DOPPADD D+ D. ; (5-4) 


Wie Sie sehen können, greifen wir hier im wesentlichen auf die 
selben Ideen wie bei der einfach genauen Arithmetik zurück. 
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D- - Das FORTH-Wort D- entfernt die beiden obersten doppelt ge 
nauen Integers vom Stack und legt dort ihre Differenz ab. Der 
oberste Stack-Eintrag wird dabei vom zweiten subtrahiert. Das Er 
gebnis ist ebenfalls doppelt genau. Wir haben folgende Stack- 
Relation : 


di ff 


(8-5) 


Dabei ergibt sich d AA als Ergebnis von d A minus d 2 . Wieder 
sehen wir, daß D- im wesentlichen genauso funktioniert wie -, 
außer daß jetzt doppelt genaue Zahlen benutzt werden. 


5.1.2 Multiplikation und Division 


Die FORTH-Kommandos zur Multiplikation und Division von doppelt 
genauen Integers sind kein Bestandteil von FORTH-79. Sie sind je 
doch im MMSFORTH und anderen FORTH-SySternen implementiert. Auch 
diese Wörter entsprechen ihren einfach genauen Gegenstücken. So 
entfernt z.B. D* die beiden obersten doppelt genauen Integers vom 
Stack und ersetzt sie durch ihr Produkt. Das Ergebnis ist eben 
falls eine doppelt genaue Integer. 

Zur Division von doppelt genauen Zahlen benutzt man in FORTH die 
Wörter D/ und D/MOD. Auch diese beiden Kommandos funktionieren 
ähnlich wie ihre einfach genauen Entsprechungen. 

In vielen Programmen werden sowohl einfach genaue als auch dop 
pelt genaue Integers benötigt. Die Größen, die ein Programm be 
rechnet, können z.B. doppelt genau sein, während Schleif enpara 
meter in der Regel einfach genaue Zahlen sind. Als Beispiel für 
das Mischen dieser beiden Zahlentypen schreiben wir unser Fakul 
tätsprogramm erneut (vgl. Abb . 4-6), wobei wir diesmal doppelt 

genaue Integers verwenden. Beachten Sie, daß 8! = 40320 gilt. 

Diese Zahl kann nicht mehr als einfach genaue Integer dargestellt 
werden. Sie sehen das Programm in Abbildung 5-1. Gehen wir es 
einmal im Detail durch. 


166 



5 Grundlegendes über Zahlen 


0 ( Doppelt genaue Fakultätsberechnung ) 

1 : FACT 1+1014 ROLL SWAP 

2 DO I 0 D* LOOP D. 

3 

4 

ABBILDUNG 5—1: Ein FORTH-Wort, das die Fakultät 
mit doppelter Genauigkeit berechnet 


Wir nehmen an, daß Sie mit dem Fakultätsprogramm aus Abbildung 4- 
6 bereits vertraut sind. Wenden wir uns jetzt Abbildung 5-1 zu. 
Das Programm geht davon aus, daß die Zahl, deren Fakultät berech 
net werden soll, als einfach genaue Integer auf dem Stack liegt. 
Als erstes addieren wir 1 zu dieser Zahl. Im nächsten Schritt 
legen wir eine doppelt genaue 1 auf den Stack, und zwar, indem 
wir zuerst eine 1 und anschließend eine 0 auf den Stack pushen. 
Ebensogut hätten wir dem Interpreter anzeigen können, daß es sich 
um eine doppelt genaue Zahl handelt, indem wir 1. anstelle der 1 
und der 0 eingeben. Nach Ausführung von 4 ROLL und SWAP enthält 
der Stack (von oben nach unten) eine 1, die Zahl, deren Fakultät 
berechnet werden soll erhöht um 1, und die doppelt genaue Integer 
1. Mit dem FORTH-Wort DO auf Zeile 2 treten wir in die Schleife 
ein. Dadurch werden die beiden obersten Stack-Einträge vom Para 
meter-Stack entfernt und auf den Return-Stack gelegt. Innerhalb 
der Schleife besorgen wir uns als erstes den Schleifenindex durch 
das FORTH-Wort I und machen diesen zu einer doppelt genauen Zahl, 
indem wir eine Null auf den Stack pushen. Der restliche Teil des 
Programms funktioniert genauso, wie Sie es von der Abbildung 4-6 
her schon kennen, außer daß die doppelt genaue Multiplikation 
benutzt wird. Da das Ergebnis doppelt genau ist, muß auch zur 
Ausgabe das Kommando D. geschrieben werden. 


5.1.3 


Stack-Manipulationen mit doppelt genauen Integers 


Die dazu nötigen FORTH-Kommandos haben wir bereits ausführlich in 
Abschnitt 2-5 besprochen. 
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5.1.4 Vergleichswörter 

Auch einige Vergleichswörter, die wir in Abschnitt 4-1 kennenge 
lernt haben, haben ihre Entsprechung für doppelt genaue Zahlen. 
Das FORTH-Wort D= entspricht dem bekannten =. Das bedeutet, daß 
D= die beiden obersten doppelt genauen Integers vom Stack ent 
fernt und durch ein Flag ersetzt. Dieses ist wahr, wenn die bei 
den Zahlen gleich waren. Ansonsten hat das Flag den Wahrheitswert 
"falsch". Denken Sie daran, daß ein Flag stets eine einfach ge 
naue Integer ist. Deshalb haben wir folgende Stack-Relation: 


d, d„ > n 

i Z flag 


(5-6) 


Das FORTH-Wort IX entspricht <• Bei Ausführung von D< werden die 
beiden obersten doppelt genauen Integers vom Stack entfernt und 
durch ein Flag ersetzt. Dieses hat den Wahrheitswert "wahr", wenn 
die zweite doppelt genaue Integer auf dem Stack kleiner als die 
erste ist. Die Stack-Relation ist die gleiche wie in 5-6. 

Für den Vergleich von doppelt genauen Zahlen stellt FORTH nicht 
so viele Wörter zur Verfügung wie für einfach genaue Zahlen. Die 
sen Mangel kann man jedoch einfach beheben, indem man sich seine 
eigenen Vergleichswörter schreibt. Wir können ein Wort für dop 
pelt genaue Zahlen schreiben, das dem bekannten > entspricht; 
geben wir ihm den Namen DD> . Es soll die beiden obersten doppelt 
genauen Integers vom Stack entfernen und dort ein Flag ablegen . 
Dieses Flag wird "wahr", wenn die zweite doppelt genaue Integer 
auf dem Stack größer als die erste doppelt genaue Integer auf dem 
Stack ist. Die Definition dieses Wortes sehen Sie in Abbildung 5- 
2. Als erstes duplizieren wir die oberste doppelt genaue Integer. 
Als nächstes transportieren wir die ursprüngliche zweite doppelt 
genaue Integer an oberste Stack-Position, indem wir das Wort 2R0T 
aufrufen. Diese Zahl wird als nächstes dupliziert. Ein weiteres 
2R0T sorgt dafür, daß der Stack nun folgendermaßen aussieht : d A 
d 1 d. d~ . Die ursprüngliche Stack-Konfiguration lautete: d x d£ . 

Jetzt röhren wir den ersten Vergleich mit D< aus. Wir erhalten 
nun ein Flag auf dem Stack, das "wahr" ist, falls d. A kleiner als 
2 ist. Dieses Flag machen wir zu einer doppelt genauen Integer, 
indem wir zusätzlich eine 0 auf den Stack legen. Zweimalige Aus 
führung von 2R0T bringt erneut die ursprünglichen zwei doppelt 
genauen Zahlen zuoberst auf den Stack. Da wir als nächstes einen 
Vergleich mit D= anstellen, spielt es keine Rolle, in welcher 


168 



5 Grundlegendes über Zahlen 


Reihenfolge sich diese beiden Zahlen in den ersten beiden Stack- 
Positionen befinden. Der Vergleich mit D= hinterläßt ein Flag, 
unter dem sich auf dem Stack eine 0 und ein weiteres Flag befin 
den. ROT holt diese beiden Flags nun nach oben. Wenn eines von 
ihnen "wahr" ist, dann sollte DD> als Ergebnis ein "falsches" 
Flag liefern. Die einfache Addition mittels +, die in diesem Fall 
ausreichend ist, liefert uns nun entweder eine 0, eine 1 oder 
eine 2. Erhalten wir die 1 oder die 2, dann sollte DD> ein "fal 
sches" Flag hinterlassen. Im Falle der 0 wird DD> aber wahr; 
diesen Fall testen wir durch 0=. Wir erhalten somit nur dann ein 
"wahres" Flag, wenn beide zum Vergleich herangezogenen Flags auf 
dem Stack den Wahrheitswert "falsch" haben. 


0 ( Doppelt genaues Vergleichswort ) 

1 : DD> 2DUP 2ROT 2DUP 2ROT 

2 D< 0 2 ROT 2 ROT D= ROT 

3 + 0= DROP ; 

4 

5 

ABBILDUNG 5-2 Vergleich zweier doppelt genauer Integers 


5.1.5 Weitere Befehle für doppelt genaue Integers 


Wir stellen hier noch eine Reihe weiterer Befehle vor, die ähn 
lieh wie einige bereits bekannte Wörter arbeiten, aber für dop 
pelt genaue Integers vorgesehen sind. 

DNEGATE - Das FORTH-Wort DNEGATE ist die doppelt genaue Entspre 
chung von NEGATE (vgl. Abschnitt 2-7) . DNEGATE ändert das Vorzei 
chen der doppelt genauen Integer an oberster Stack-Position. 

DMIN, DMAX und DABS - Diese drei FORTH-Wörter entsprechen den 
bereits bekannten Befehlen MIN, MAX und ABS, die Sie in Abschnitt 
2-7 kennengelernt haben. DMIN entfernt z.B. die beiden obersten 
doppelt genauen Integers vom Stack und legt die kleinere der 
beiden dort ab. Das FORTH-Wort DABS ersetzt die oberste doppelt 
genaue Integer auf dem Stack durch ihren Absolutwert. 
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D#IN - Das FORTH-Wort D#IN entspricht dem bekannten #IN (vgl. 
Abschnitt 3-1 ) . Das Kommando findet sich nicht in MMSFORTH. Bei 

Aufruf von D#IN unterbricht der FORTH-Interpreter seine Berech 
nungen und gibt ein Fragezeichen auf dem Bildschirm aus. Der 
Benutzer kann nun eine doppelt genaue Integer eingeben und an 
schließend die RETURN-Taste drücken. Selbst wenn die eingegebene 
Zahl keinen Dezimalpunkt enthält, so wird sie von D#IN als dop 
pelt genaue Integer behandelt. Die Stack-Relation zu diesem Wort 
ist : 


— > 


d 


(5-7) 


5 . 2 Formatieren von Zahlen 


Auch bei doppelt genauen Integers besteht die Möglichkeit zur 
formatierten Ausgabe, ähnlich, wie wir es bereits in Abschnitt 3- 
3 besprochen haben. Dabei muß man nur in einigen Fällen andere 
Befehle für doppelt genaue Integers verwenden, kann jedoch mei 
stens auf die für einfache Zahlen bereits vertrauten Wörter zu 
rückgreifen . 


5.2.1 Datenfelder 


Das FORTH-Wort D.R entspricht dem in Abschnitt 3-3 bereits disku 
tierten .R. Bei Ausführung von D.R sollten sich mindestens zwei 
Werte auf dem Stack befinden, nämlich eine einfach genaue Integer 
an oberster Stack-Position und darunter eine doppelt genaue Inte 
ger. D.R entfernt diese beiden Werte vom Stack. Die einfach ge 
naue Integer gibt die Breite des Felds an, in dem die doppelt ge 
naue Zahl ausgegeben werden soll. Wir haben also folgende Stack- 
Relation : 


d n -> (5-8) 

alle in Abschnitt 3-3 angestellten Überlegungen 
von Zahlen in Datenfeldern auch für doppelt ge 


Ansonsten gelten 
für das Ausgeben 
naue Integers . 
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5.2.2 Zahlenausgabe mit Maske 


Auch diese Art der Ausgabe haben wir bereits in Abschnitt 3-3 
kennengelernt. Die Kenntnisse, die Sie dort erworben haben, kön 
nen Sie ohne Änderung auf doppelt genaue Integers übertragen. 
Tatsächlich ist die Zahlenausgabe mit Maske ausschließlich für 
doppelt genaue Integers vorgesehen, weswegen wir in Kapitel 3-3 
ja auch immer unsere einfach genauen Zahlen erst durch Hinzufügen 
einer Null zu doppelt genauen Zahlen machen mußten. Diesen 
Schritt können Sie sich bei der Ausgabe von doppelt genauen Inte 
gers mit Maske natürlich sparen. Ansonsten gilt das Kapitel 3-3 
unverändert . 


5.2.3 Ändern der Zahlenbasis 


Auch hier gelten die Ausführungen von Kapitel 2-7 unverändert für 
doppelt genaue Integers. Wenn Sie so z.B. den Befehl HEX einge 
ben, dann wird jede Zahl, sei sie einfach oder doppelt genau, in 
hexadezimaler Schreibweise ausgegeben. (Natürlich werden auch 
Ihre Eingaben als Hexadezimalwerte interpretiert.) 


5.3 Skalieren von Zahlen 


Bei den bisherigen Rechenbeispielen mit Integers sind wir davon 
ausgegangen, daß die Ergebnisse unserer Programme stets korrekt 
sind. Dies ist jedoch nicht immer der Fall. Angenommen, wir wel 
len folgenden Ausdruck berechnen: 


(2/4 ) * 6 (5-9) 

Der Bruch 2/4 entspricht 1/2 und 1/2 mal 6 ist gleich 3. Was aber 
macht FORTH aus diesem Ausdruck? Angenommen, wir geben folgendes 
ein : 


1 71 
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624/* (RETURN) (5-10) 

Der Befehl / dividiert 2/4. Dies liefert als Ergebnis jedoch 0 
(vgl Abschnitt 2-1)1 Wenn wir 0 mit 6 multiplizieren, dann erhal 
ten wir wiederum 0. Daß wir hier ein falsches Ergebnis erhalten, 
ist kein Fehler von FORTH. Die Berechungen von FORTH sind genau. 
Der Fehler ergibt sich daraus, daß bei der Integer-Division der 
Divisionsrest verlorengeht. In diesem Fall haben wir es mit einem 


extremen Fall eines sog. Rundunqsfehlers zu tun. Betrachten wir 

noch ein weiteres Beispiel. Der Benutzer gibt ein: 6 21 4 / * 

(RETURN) . Dies sollte als Ergebnis (5,25) mal 6 ist gleich 31,5 

liefern. FORTH berechnet jedoch 5*6=30. Auch hier geht bei der 

Integer-Division der Divisionsrest verloren. Die Division von 


21/4 liefert deshalb das Ergebnis 5. Wir können die Genauigkeit 
der Berechnung (5-9) erhöhen, indem wir die Multiplikation vor 
der Division ausführen. Dazu schreiben wir (5-10) neu als 


4 6 2 * SWAP / (RETURN) (5-11) 

In diesem Fall wird zuerst das Produkt von 2 und 6 berechnet und 
liefert den Wert 12. Diesen dividieren wir anschließend durch 4, 

wodurch wir das Ergebnis 3 erhalten. Jetzt haben wir die richtige 
Antwort. Nun zu dem zweiten Beispiel; hier sieht der Stack so 

aus: 4 6 21. Wir multiplizieren zuerst und erhalten 21*6=126. Die 
Division von 126/4 sollte 31,5 ergeben, bekanntermaßen wird bei 
Integer-Division jedoch der Rest fallen gelassen, so daß sich das 
Ergebnis 31 einstellt. Bei unserem vorherigen Berechnungsversuch 
erhielten wir 30. Natürlich ist das Ergebnis 31 genauer als das 
Ergebnis 30 . 

Diese Beispiele haben gezeigt, daß man die Genauigkeit von Be 
chenergebnissen verbessern kann, indem man die Multiplikationen 

in einem Ausdruck möglichst vor den Divisionen ausführt. Dies ist 
jedoch nicht immer möglich. Selbst wenn wir nur mit Zahlen arbei 
ten, die verhältnismäßig klein sind, so können die als Zwischen 
ergebnis anfallenden Produkte trotzdem für das System zu groß 

werden. Bei der Arbeit mit einfach genauen Integers müssen ja al 
le Zahlen zwischen -32768 und 32767 liegen. Nehmen Sie jetzt 
einmal an, daß wir den Ausdruck (459) * (734/915) zu berechnen 
haben. Das Produkt 363 906 ist zu groß zur Darstellung in einer 
einfach genauen Integer, weswegen die Berechnung in einem fehler 
haften Ergebnis endet. (Oftmals zeigt Ihr System diesen Fehler 
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gar nicht erst an!) Andererseits ist das Endergebnis 368,2 nicht 
zu groß für das System. Wir könnten diese Schwierigkeit umgehen, 
indem wir mit doppelt genauen Zahlen arbeiten. Diese benötigen 
aber bekanntermaßen mehr Rechenzeit und Speicherplatz. Zum Glück 
stellt FORTE ein Wort bereit, das die Arbeit mit großen Produkten 
als Zwischenergebnis erlaubt, ohne daß wir bei unseren Berechnun 
gen auf doppelt genaue Integers zurückgreifen müssen. 

*/ - Das FORTH-Wort */ arbeitet mit drei einfach genauen Integers 
auf dem Stack. Es hat folgende Stack-Relation: 


n 


1 


n 2 n 3 


— > n 

erg 


(5-12) 


Seine Arbeitsweise ist wie folgt: Zuerst wird das Produkt nA * n ? 

berechnet. Das Ergebnis dieser Multiplikation wird als doppelt 
genaue Integer gespeichert. Diese wird anschließend durch n_ 
dividiert. Das Endergebnis wird als einfach genaue Integer auf 
den Stack gepusht. Dadurch, daß das Zwischenergebnis (das Pro 
dukt) doppelt genau gespeichert ist, ergeben sich keine Überlauf 
Probleme, (d.h., es kann nicht passieren, daß das Zwischenergeb 
nis zu groß wird) . Der Benutzer muß sich jedoch bei der Arbeit in 
seinem Programm nicht mit den Details für den Umgang mit doppelt 
genauen Integers befassen. Wir können jetzt die Berechnungen aus 
Beispiel 5-10 neu schreiben: 

624*/ (RETURN) (5-13) 

*/MOD - Das FORTH-Wort */MOD funktioniert genauso wie */, außer 
daß es zwei einfach genaue Integers als Ergebnis liefert . Bei der 
einen handelt es sich um den Quotienten, während die andere der 
Divisionsrest ist. Wir haben also folgende Stack-Relation: 


n 


1 


n 2 n 3 


-> n 


n 

rest 


quot 


(5-14) 


Der oberste Stack-Eintrag nach Ausführung von */MOD stellt den 
Quotienten der Division dar, während der zweite Stack-Eintrag der 
Divisionsrest ist. 
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D*/ und D*/MOD - Diese beiden FORTH-Wörter funktionieren genauso 
wie */ und */MOD, außer daß sie mit doppelt genauen Zahlen arbei 
ten. Als Zwischenergebnis wird ein Produkt in zwei aufeinander 
folgenden doppelt genauen Integers abgelegt, d.h., das Zwischen 
ergebnis wird in vierfacher Genauigkeit dargestellt. Dadurch kön 
nen wir die Vorteile der beiden eben eingeführten Arithmetik- 
Wörter auch für doppelt genaue Integers nutzen. D*/ und D*/MOD 
sind ebenfalls nicht Teil von FORTH-79, jedoch im MMSFORTH imple 
mentiert . 


5.3.1 Skalieren von Berechnungen 

Was macht man, wenn man mit Zahlen mit Nachkommastellen (z.B. 
Geldbeträgen) rechnen muß, jedoch nur Integers in seinem System 
zur Verfügung hat? In diesem Fall bedient man sich eines Verfah 
rens, das den Namen Skalierung trägt. Als Beispiel nehmen wir uns 
vor, die Provision eines Verkäufers zu berechnen. Dabei müssen 
wir mit DM- und Pfennigbeträgen rechnen. Außerdem ist es erfor 
derlich, einen bestimmten Prozentsatz der Umsätze des Verkäufers 
zu berechnen. All diese Operationen haben mit Dezimalbrüchen zu 
tun. Dennoch können wir in unseren Berechnungen mit Integers 
arbeiten. Angenommen, wir haben es mit einem Betrag von 56,42 DM 
zu tun. Wenn wir diesen Betrag mit 100 multiplizieren, dann kön 
nen wir ihn als die Integer 5642 darstellen. Wenn DM-Beträge mit 
100 multipliziert werden, dann kann man sie also als Integers 
repräsentieren. In diesem Fall sagt man, daß der Betrag mit dem 
Skalierungsfaktor 100 multipliziert wurde. Auch bei den eben 
eingeführten Worten */ und */MOD kann man von einer bestimmten 
Art von Skalierung sprechen. Schließlich skaliert FORTH automa 
tisch doppelt genaue Integers; wenn Sie eine Zahl mit einem Dezi 
malpunkt an beliebiger Stelle innerhalb der Ziffernfolge einge 
ben, dann wird diese Zahl automatisch als doppelt genaue Integer 
behandelt. Wenn Sie aber nicht mit automatischer Skalierung ar 
beiten, sondern die Skalierungsfaktoren selbst bestimmen, dann 
müssen Sie sehr vorsichtig Vorgehen. Insbesondere müssen alle 
Werte mit demselben Faktor skaliert werden. Bei Eingabe von 45.78 
und 4.578 behandelt FORTH diese beiden Werte als die gleiche 
Zahl. Sieht man diese beiden Werte jedoch als Geldbeträge (mit 
Dezimalpunkt, wie in Amerika üblich) an, dann ist der eine Betrag 
zehnmal größer als der andere. 
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Jetzt aber zurück zu unserem Beispiel, der Berechnung von Verkäu 
f erprovisionen . Wir schreiben ein FORTH-Wort, das die Beträge der 
einzelnen Verkäufe addiert und dann 15% der sich daraus ergeben 
den Summe berechnet. Wir werden für dieses Problem zwei Lösungen 
liefern, wobei die eine mit einfach genauen, die andere mit dop 
pelt genauen Integers arbeitet. Beide Lösungen finden Sie in Ab 
bildung 5-3. 

0 (Beispiel fuer Skalierung) 

1 : SUMME 1 DO + LOOP ; 

2 : PROVISION SUMME 15 100 */ 

3 CR 0 <# # # 44 HOLD #S #> TYPE ; 

4 

5 

6 (Zweite Fassung mit doppelt genauen Integers) 

7 : DSUMME 1 DO D+ LOOP ; 

8 : DPROVISION DSUMME 15. 100. D*/ 

9 CR <# # #44 HOLD #S #> TYPE ; 

1 0 

1 1 

1 2 

1 3 

1 4 

1 5 

ABBILDUNG 5-3: Ein Beispiel für die Skalierungstechnik 

.-.tersuchen wir als erstes das Programm, das mit einfach genauen 
l2--.len arbeitet. Das Hauptwort trägt den Namen PROVISION und ruft 
= ;ir.erseits das Unterwort SUMME. Nun zuerst zu SUMME. Dieses be- 
rer.-.r.et die Summe der einzelnen Verkäufe. Dazu wird der Betrag 
eies Verkaufs auf den Stack gepusht und zuletzt die Anzahl der 
£-2 zeinen Verkäufe. Die Zahlen, die den Verkaufswert darstellen, 
eilten als Pfennigbeträge eingegeben werden. Wenn der Vertreter 
± _ s c drei Verkäufe mit einem Wert von 45,09 DM, 56,32 DM und 
12,45 DM getätigt hat, dann müssen Sie folgendes eingeben: 

4509 5632 10345 3 (5-15) 
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Wie Sie sehen können, sind die solcherart eingegebenen Daten be 
reits skaliert. SUMME legt nun, wenn es gerufen wird, eine 1 auf 
den Stack und tritt in eine DO-Schleife ein. Das DO-Wort findet 

vorschriftsmäßig den Anfangswert für den Schleifenindex und den 
Testwert auf dem Daten-Stack vor, welche es von dort entfernt und 
auf den Return-Stack legt . Im Falle des Beispiels 5-15 bedeutet 
dies, daß zwei Schleifendurchgänge stattfinden, d.h., in diesem 
Fall, daß zweimal addiert wird. Nach Verlassen der Schleife haben 
wir also die Summe der vom Verkäufer getätigten Umsätze. Wenden 
wir uns nun dem Hauptwort PROVISION zu. Dieses ruft als erstes 
das bereits besprochene SUMME, um den Gesamtumsatz zu erhalten. 
Um nun 15 % von dieser Summe berechnen zu können, pushen wir 15 

und 100 (in dieser Reihenfolge) auf den Stack und rufen das 
arithmetische Wort */. Dies bewirkt, daß der Gesamtumsatz mit 15 
multipliziert und anschließend durch 100 dividiert wird. Wir 
haben somit die gewünschten 15 % des Gesamtumsatzes berechnet. 
Diesen Betrag wollen wir jetzt ausdrucken, wobei sich das Dezi 
malkomma an der richtigen Stelle befindet. Dazu dienen die Anwei 
sungen in Zeile 3 , die ein weiteres Beispiel für die Zahlenaus 

gäbe mit Maske (vgl. Abschnitt 3 - 3 ) darstellen. Die auszugebende 
Zahl wird erst einmal doppelt genau gemacht, indem eine 0 auf den 
Stack gepusht wird. Die Ausgabemaske bewirkt, daß die beiden 
niedrigstwertigen Dezimalziffern der Zahl rechts vom Dezimalkomma 
ausgegeben werden. Dies ist völlig analog zu den Beispielen in 

Abschnitt 3 - 3 . 

Wenden wir uns nun dem zweiten Beispiel von Abbildung 5—3 zu, 
welches mit doppelt genauen Integers arbeitet. Jetzt sollten Sie 
bei der Dateneingabe den (in Amerika üblichen) Dezimalpunkt mit 
eingeben und dabei das übliche Format für Geldbeträge verwenden. 
Die Daten aus Beispiel 5—15 müssen also folgendermaßen eingegeben 
werden : 


45.09 56.32 103.45 3 


( 5 - 16 ) 


Die Anzahl der Eingabedaten (3) geben wir nach wie vor als ein 
fach genaue Integer an. Das Wort zur Summenbildung - DSUMME - 
funktioniert im wesentlichen genauso wie SUMME, außer daß doppelt 
genaue Addition mittels D+ ausgeführt wird. Ebenso ist DPROVISION 
im wesentlichen dem Wort PROVISION ähnlich. Unterschiede ergeben 
sich daraus, daß wir zur Berechnung des Prozentsatzes den doppelt 
genauen Operator D*/ verwenden wollen. Deshalb müssen wir die 
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Konstanten in der Form 15. und 100. eingeben, damit sie von FORTH 
als doppelt genaue Werte interpretiert werden. Weil D*/ ein dop 
pelt genaues Ergebnis liefert, müssen wir nicht erst eine Null 
auf den Stack hieven, ehe wir das Ergebnis mit der Druckmaske 
ausgeben können. 

Nicht alle FORTH-Systeme verfügen über D*/. Wenn Ihr System al 
lerdings die Wörter D* und D/ kennt, dann können Sie trotzdem mit 
DPROVISION arbeiten; allerdings ist es dann nicht möglich, Zwi 
schenergebnisse mit vierfacher Genauigkeit zu speichern. 


5.4 Berechnungen im gemischten Modus 


Manchmal ist es nötig, bei einer Berechnung sowohl mit einfachen 
als auch mit doppelt genauen Integers zu arbeiten. Wir wissen ja 
bereits, daß manchmal das Produkt zweier einfach genauer Integers 
zu groß ist, um in einer einfach genauen Integer Platz zu finden. 
Wenn beide Zahlen positiv sind, dann können wir mit der bereits 
bekannten Methode (0 auf den Stack pushen) zur rechten Zeit aus 
den Multiplikanden doppelt genaue Zahlen machen und unser Ergeb 
nis mit doppelt genauer Multiplikation berechnen. Einige FORTH- 
Systeme verfügen jedoch über Wörter, die dem Benutzer in diesen 
Situationen die Arbeit erleichtern. Sie sind zwar kein Teil von 
FORTH-79, stehen jedoch in MMSFORTH und anderen FORTH-Systemen 
zur Verfügung. Kommen in einer Berechnung unterschiedliche Zah 
lentypen - in diesem Fall einfache und doppelt genaue Integers - 
vor, so spricht man von Berechnungen im gemischten Modus. Dem 
gemischten Modus gilt unser Interesse in diesem Abschnitt . 

M* - D as FORTH-Wort M* entfernt zwei einfach genaue Integers vom 
Stack, berechnet ihr Produkt als doppelt genaue Integer und legt 
diese auf den Stack. Wir erhalten folgende Stack-Relation: 


n„ 


n„ — 
£ 


> d ^ 
prod 


(5-17) 


So berechnet beispielsweise das folgende Wort das Produkt zweier 
einfach genauer Zahlen mit doppelter Genauigkeit und gibt es auch 
als doppelt genaue Integer aus: 
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: MIXMULT M* D. ; (5-18) 

M/ und M/MOD - Wir wissen bereits, daß es oftmals sehr gelegen 
kommt, das Produkt zweier einfach genauer Zahlen mit doppelter 
Genauigkeit zu erhalten. Umgekehrt kann es auch nützlich sein, 
sowohl den Quotienten als auch den Rest der Division einer dop 
pelt genauen Integer durch eine einfach genaue Integer mit einfa 
eher Genauigkeit darzustellen. Bei einer solchen Operation im 
gemischten Modus liefert das Wort M/ den Quotienten mit einfacher 
Genauigkeit. Wir erhalten folgende Stack-Relation: 


d n — > n 

quot 


(5-19) 


Beachten Sie, daß die doppelt genaue Integer (an zweiter und 
dritter Stack-Position) durch die einfach genaue Integer an ober 
ster Stack-Position dividiert wird. Diese beiden Zahlen (also 
insgesamt drei Stack-Positionen) werden vom Stack entfernt und 
durch den einfach genauen Quotienten ersetzt. 

Das Wort M/MOD funktioniert ähnlich wie M/, außer daß es als 
Ergebnis zwei einfach genaue Integers liefert . Eine davon ist der 
Quotient, während die andere den Divisionsrest darstellt. Die 
Stack-Relation lautet: 


d n -> n n . ^ (5-20) 

rest quot 

Beachten Sie, daß sich der Quotient an oberster Stack-Position 
befindet . 

M+ und M- - Zum Addieren einer doppelt genauen Integer mit einer 
einfach genauen Integer dient das Wort M+ . Das Ergebnis dieser 
Operation ist natürlich eine doppelt genaue Integer, weswegen die 
Stack-Relation lautet: 


d n -> d 

sum 


(5-21) 
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Beachten Sie, daß sich die einfach genaue Zahl an oberster Stack- 
Position befinden muß. Auch Subtraktionen im gemischten Modus 
sind möglich; dazu bedient man sich des Wortes M-. Es hat die 
Stack-Relation : 


d n -> 


dif 


(5-22) 


Wie Sie sehen, wird die einfach genaue Integer an oberster Stack- 
Position von der doppelt genauen Integer subtrahiert, die die 
zweite und dritte Stack-Position belegt. Das Ergebnis, welches 
die beiden Argumente der Operation ersetzt, wird in doppelter 
Genauigkeit dargestellt . 

Sollte Ihr FORTH-System über M- nicht verfügen, so können Sie 
sich zumindest für positive Zahlen leicht ein eigenes Wort defi 
nieren, das dieselbe Wirkung hat. Seine Definition lautet: 

: MIX- 0 D- ; (5-23) 


Mit dem erprobten Trick machen wir aus der einfach genauen Inte 
ger an oberster Stack-Position eine doppelt genaue, so daß wir 
das Wort D- rufen können. 

M*/ - Dieses Wort funktioniert ähnlich wie */ oder D*/, außer daß 
es im gemischten Modus arbeitet, also das Produkt einer doppelt 
genauen Integer mit einer einfach genauen Integer berechnet, die 
ses Ergebnis mit dreifacher Genauigkeit speichert (also drei 
Stack-Positionen dazu benötigt) und anschließend durch eine ein 
fach genaue Integer dividiert. Der Quotient dieser Division wird 
mit einfacher Genauigkeit dargestellt . Es ergibt sich folgende 
Stack-Relation : 


d n„ 

i 


— > n 

quot 


(5-24) 


Dabei wird das Produkt aus d und n. A berechnet und anschließend 
durch n A dividiert. 
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5 . 5 Vorzeichenlose Zahlen 


Alle in den bisherigen Programmbeispielen verwendeten Zahlen 
waren mit einem Vorzeichen versehen. Sie konnten also entweder 
positiv oder negativ sein, was bei der Ausgabe durch ein vorge 

stelltes Minuszeichen bzw. das Fehlen desselben angezeigt wird. 
Sie haben bereits erfahren, daß Ihr Computer Zahlen intern als 
Folgen von Nullen und Einsen (sog. Bits) speichert, also in der 
Binärdarstellung (vgl. Abschnitt 1-2) . Eines dieser Bits benutzt 
der Rechner dabei zur Speicherung des Vorzeichens. Allerdings 
ergibt sich eine negative Zahl nicht einfach aus einer positiven, 
indem man das entsprechende Bit verändert! Arbeiten wir nun aus 
schließlich mit positiven Zahlen, dann brauchen wir keine Vorkeh 
rungen für negative Zahlen zu treffen und können deshalb auf 
dieses Vorzeichenbit verzichten. Es steht dann zur Verfügung, um 
den Absolutbetrag der Zahl zu repräsentieren, wodurch der Werte 

Vorrat der darstellbaren Zahlen vergrößert wird. In einem typi 
sehen FORTH-System werden in der Regel 16 Bits für die Dar 

Stellung von vorzeichenbehafteten einfach genauen Integers ver 
wendet. Wie bereits mehrfach ausgeführt, können solche Zahlen im 
Bereich zwischen -32768 und 32767 liegen. Wenn wir nun diese 16 
Bits zur ausschließlichen Darstellung von positiven Zahlen benut 
zen, dann können wir damit Zahlen zwischen 0 und 65535 repräsen 
tieren. FORTH erlaubt es, einfach genaue Integers so zu behan 

dein, als ob sie kein Vorzeichen hätten. Allerdings sollten Sie 
sich darüber im klaren sein, daß Sie einer Zahl auf dem Stack 
nicht ohne weiteres ansehen können, ob sie vorzeichenlos oder mit 
einem Vorzeichen versehen ist. Es liegt allein in Ihrer Verant 
wortung, ob das Programm die Zahlen richtig interpretiert. 

U. - Das FORTH-Kommando U. arbeitet wie das Punktkommando in 
FORTH, außer daß es davon ausgeht, daß die auszugebende Zahl vor 
zeichenlos ist. Seine Stack-Relation lautet: 


u 


— > 


(5-25) 


Wie Sie sehen können, stellen wir vorzeichenlose Zahlen auf dem 
Stack durch den Buchstaben "u" dar. Der Platzbedarf von vorzei 
chenlosen Zahlen ist der gleiche wie der von einfach genauen 
Integers; Zahlen vom Typ "u" und "n" beanspruchen also beide 
genau eine Stack-Position. Man kann also sagen, daß U. die ober- 
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ste einfach genaue Integer vom Stack entfernt und als vorzeichen- 
-ose Zahl ausgibt . Wir wollen einmal an einem kleinen Beispiel- 
orogramm den Unterschied zwischen vorzeichenlosen Zahlen und 
solchen mit Vorzeichen demonstrieren. Betrachten Sie das folgende 
Wor t : 


: CHECK DUP U. . ; (5-26) 

Offensichtlich dupliziert CHECK die oberste einfach genaue Zahl 
auf dem Stack und gibt sie einmal als vorzeichenlose und einmal 
als "gewöhnliche" Integer aus. Bei Eingabe von 

3 CHECK 

erhalten wir als Ergebnis 
3 3 

Wenn eine Integer also positiv ist, dann ist ihre vorzeichenlose 
Interpretation identisch mit der vorzeichenbehafteten. Ganz an 
ders sieht es bei negativen Zahlen aus. Probieren Sie einmal das 
folgende : 

-1 CHECK 

Dies liefert das Ergebnis 
65535 -1 

Dies bedeutet, daß die Binärdarstellung der vorzeichenbehafteten 
Zahl -1 gleich ist wie die der vorzeichenlosen 65535. 

U.R - Das FORTH-Wort U.R dient der Ausgabe von vorzeichenlosen 
Zahlen und entspricht weitgehend dem bereits bekannten .R (vgl. 
Abschnitt 3-3) . U.R erwartet jedoch, daß es eine vorzeichenlose 
Zahl ausgeben soll. Seine Stack-Relation lautet: 


u 


n — > 


(5-27) 
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Wie bei .R gibt der oberste Stack-Eintrag die Feldbreite an, 
während der zweite Stack-Eintrag die auszugebende Zahl darstellt. 
Beide Werte werden durch U.R vom Stack entfernt. Ist das angege 
bene Feld nicht breit genug für die Ausgabe dieser Zahl, so 
kümmert sich FORTH nicht um diese Angabe und legt selbst ein aus 
reichend breites Feld an. 

ü* - Dieses FORTH-Kommando dient der Multiplikation zweier vor 
zeichenloser Integer. U* entfernt die obersten zwei Zahlen vom 
Stack, bildet ihr Produkt und legt es als vorzeichenlose doppelt 
genaue Integer auf den Stack. Dadurch wird der Darstellungsbe 
reich des Ergebnisses noch einmal beträchtlich vergrößert, da 
vorzeichenlose doppelt genaue Integers bis zu 4294967295 groß 
sein können. Wir haben folgende Stack-Relation: 


U 1 u 2 "> °d 


(5-28) 


Zur Darstellung einer doppelt genauen vorzeichenlosen Integer 
verwenden wir also ein "u" mit dem Index "d" . Zur Ausgabe dieses 
Zahlentyps gibt es keine eigenen FORTH-Worte; dies kommt daher, 
weil dieser Datentyp hauptsächlich zur Speicherung von Zwischen 
ergebnissen dient. Wir wenden uns deshalb der Frage zu, wie man 
aus vorzeichenlosen doppelt genauen Integers vorzeichenlose ein 
fach genaue Integers machen kann. 

U/MOD — Das FORTH-Kommando U/MOD sorgt dafür, daß die vorzeichen- 
lose doppelt genaue Integer in zweiter und dritter Stack-Position 
durch die vorzeichenlose einfach genaue Integer an erster Stack- 
Position dividiert wird. Diese beiden Werte werden vom Stack 
entfernt, und an ihrer Stelle werden Quotient und Divisionsrest 
dort abgelegt. Es ergibt sich folgende Stack-Relation: 


u d D 


— > u 


rest quot 


(2-29) 


Sowohl Quotient als auch Rest werden als vorzeichenlose einfach 
genaue Zahlen ausgegeben. Denken Sie daran, daß Sie sich diese 
Werte mit dem Kommando U. und nicht einfach mit dem Punktkommando 
ansehen müssen, um das korrekte Ergebnis zu erfahren. 


182 



5 Grundlegendes über Zahlen 


U< - Dieses FORTH-Wort dient zum Vergleich zweier vorzeichenloser 
Zahlen. Es liefert ein Flag, das "wahr" ist, wenn die zweite Zahl 
auf dem Stack kleiner ist als die erste Zahl auf dem Stack. Beide 
zu vergleichenden Zahlen müssen vorzeichenlose Integers sein, 
weswegen sich folgende Stack-Relation ergibt: 


-> n 


f lag 


(5-30) 


Das Flag ist also nur dann "wahr", wenn u A kleiner als U£ ist. 

DO und /LOOP - Um die Anzahl der Durchgänge durch eine unbedingte 
Schleife größer zu machen, ist es möglich, diese Parameter als 
vorzeichenlose Integers anzugeben. Solche Schleifen müssen aller 
dings mit Hilfe des Wortpaares DO und /LOOP aufgebaut werden. Die 
beiden Wörter funktionieren genau wie die bereits bekannten DO 
und +LOOP, außer daß die Schleifenparameter als vorzeichenlose 
einfach genaue Zahlen behandelt werden. Ansonsten gilt für solche 
Schleifen alles, was bereits in Abschnitt 4-3 gesagt wurde. 


5 . 6 Bit-Operationen 


Wie Sie wissen, speichert Ihr Computer intern alle Zahlen in der 
Binärdarstellung. Die Binärdarstellung einer Zahl besteht aus 
einer Folge von Nullen und Einsen. Jede dieser Nullen bzw. Einsen 
trägt den Namen Bit . Gelegentlich ist es nützlich, die einzelnen 
Bits, die zur Darstellung einer Binärzahl dienen, gezielt manipu 
Heren zu können. In diesem Abschnitt werden Sie FORTH-Wörter 
kennenlernen, mit denen das möglich ist. 

Wenn einzelne Bits manipuliert werden, dann geschieht dies mit 
Hilfe sog. logischer Operatoren. Einige dieser Operatoren werden 
sehr häufig gebraucht. Es sind dies das logische UND, das logi 
sehe ODER und das logische exklusive Oder (XOR) . Diese Operatoren 
vergleichen stets zwei Bitwerte miteinander und liefern in Abhän 
gigkeit davon einen neuen Bitwert. Das logische UND (engl. AND) 

vergleicht zwei Bits; sind sie beide auf 1 gesetzt, dann liefert 

auch UND den Wert 1. Ist nur eines der beiden Bits (oder auch 

beide) auf Null gesetzt, so hat auch die UND-Operation den Wert 
0. Auch das logische ODER vergleicht zwei Bits. Wenn nur eines 
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der beiden (oder auch beide) Bits auf 1 gesetzt ist, dann hat 
ODER den Wert 1. Die Operation des logischen ODER liefert also 
nur dann den Wert Null, wenn beide Vergleichsbits den Wert Null 
haben. Die dritte logische Operation, die häufig anzutreffen ist, 
das exklusive Oder (Fachausdruck: XOR) verhält sich ähnlich wie 

die ODER-Operation . Wenn eines der beiden Vergleichsbits den Wert 
1 hat, dann wird auch XOR den Wert 1 liefern. Zusätzlich hat XOR 
aber auch noch den Wert 0, wenn beide Vergleichsbits den Wert 1 
haben. Anders ausgedrückt kann man sagen, daß XOR nur dann den 
Wert 1 liefert, wenn die beiden Vergleichsbits verschiedene Werte 
haben; sind sie beide gleich 0 oder gleich 1, dann ergibt XOR 
auch den Wert 0. Die FORTH-Wörter zur Ausführung dieser logischen 
Operationen sind kein Teil des Standard-FORTH . Sie finden sich 
jedoch im MMSFORTH und in anderen FORTH-Systemen . 

AND - D as FORTH-Wort AND entfernt die beiden obersten einfach 
genauen Integers vom Stack und vergleicht sie bitweise unter Ver 
Wendung der oben beschriebenen UND-Operation. Dabei wird das 
erste Bit der ersten Zahl mit dem ersten Bit der zweiten Zahl 
über logisches UND verglichen. Sind beide Bits gleich 1, dann 
wird auch das erste Bit in der Ergebniszahl den Wert 1 haben; ist 
nur eines der Vergleichsbits 0, dann hat auch das erste Bit in 
der Ergebniszahl den Wert 0. Als nächstes wird das zweite Bit der 
ersten Zahl mit dem zweiten Bit der zweiten Zahl verglichen und 
der Prozeß wiederholt. Jedes der 16 Bits einer einfach genauen 
Integer wird somit individuell dem Vergleich mit der logischen 
UND-Operation unterworfen. Dieser Prozeß hat eine neue 16-Bit- 
Zahl zum Ergebnis, welche von AND auf den Stack gelegt wird. Des 
wegen lautet die Stack-Relation: 


"1 n 2 "> n 


(5-31) 


Wir wollen ein Beispiel für den Einsatz von AND geben. Um der 
Klarheit willen schreiben wir die Zahlen in Binärdarstellung. Da 
die meisten FORTH-Systeme die Zahlenbasis wechseln können, ist 
dies durchaus zulässig: Der Programmierer braucht nur zu verein 
baren, daß er jetzt in der Binärdarstellung zu arbeiten wünscht 
(vergleichen Sie dazu Abschnitt 2-7) . Unter der Voraussetzung, 
daß wir im Binärsystem (Basis 2) arbeiten, wollen wir jetzt das 
folgende FORTH-Wort definieren. 
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: ANDTEST AND . ; 


(5-32) 


Jetzt tippen wir: 

10011001 01110001 ANDTEST (RETURN) 
als Ergebnis erhalten wir: 

00010001 

Lediglich die erste und fünfte Bit-Position (von rechts gezählt) 
ist in beiden Vergleichszahlen auf 1 gesetzt. Deshalb erhalten 
wir als Ergebnis des FORTH-Wortes AND eine Zahl, bei der nur die 
erste und die fünfte Bit-Position auf 1 gesetzt ist. (Möglicher 
weise gibt Ihr FORTH-System führende Nullen bei der Darstellung 
einer Binärzahl nicht aus.) Hätten wir bei der Zahleneingabe im 
Dezimalsystem gearbeitet, dann würde das zum selben Ergebnis ge 
führt haben, außer daß die Zahlen natürlich in ihrer dezimalen 
Schreibweise dargestellt worden wären. 

OR - Das FORTH-Wort OR funktioniert ähnlich wie das bereits 
bekannte AND, außer daß der bitweise Vergleich der beiden Zahlen 
auf dem Stack mit der logischen ODER-Operation erfolgt. Die 
Stack-Relation geht ebenfalls aus (5-31) hervor. Hier ein Bei 
spiel : 

: ORTEST OR . ; (5-33) 

Wenn wir jetzt eingeben: 

10011001 01110001 ORTEST (RETURN) 
dann erhalten wir: 

1111101 

XOR - D as FORTH-Kommando XOR funktioniert im wesentlichen genauso 
wie OR, außer daß für die Bit-Vergleiche die Operation des exklu 
siven Oder herangezogen wird. 
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5 . 7 Gleitkommaarithmetik 


Bisher konnten wir nur mit ganzen Zahlen rechnen. Wenn Geldbe 
träge an unseren Berechnungen beteiligt waren, haben wir uns mit 
Skalierung beholfen, um aus diesen ganzzahlige Summen zu bilden. 
Bei der Arbeit mit Programmiersprachen gibt es jedoch einen 
grundlegenden Unterschied zwischen Operationen mit ganzen Zahlen 
(Integers) und Operationen mit Gleitkommazahlen. Ein Computer 
benötigt zur Darstellung einer Gleitkommazahl in der Regel zwei 
Teile: die Mantisse und den Exponenten . Bei der Ausgabe einer 

Zahl wird der Exponent meist als Zehnerpotenz geschrieben. Diese 
Darstellung von Gleitkommazahlen - die sog. wissenschaftliche 
Notation - schreibt die Zahl 56,7 in der Form .567*10 . Dabei ist 

die Zahl .567 die Mantisse, während es sich bei 10 A um den Expo 
nenten der Gleitkommazahl handelt. Wir schreiben also: 


.567 xlO 2 = 56.7 


(5-34a) 


Viele Computer zeigen die 1 Oer-Potenz des Exponenten durch den 
Buchstaben E an, d.h.: 

56.7 = .567 E 2 (5-34b) 


Betrachten wir noch einige weitere Gleitkommazahlen: 

E2=100 
E6=1000000 
E-2=. 01 
E-4= .0001 

Durch den Einsatz von Gleitkommazahlen können wir sowohl sehr 
große als auch sehr kleine Zahlen darstellen und sind außerdem in 
der Lage, mit Dezimalbrüchen zu arbeiten A gBei kleij A ren Computern 
reicht der Exponent in der Regel von 10 bis 10 + ’ . Damit läßt 

sich eine enorme Menge an Zahlen darstellen. Es gibt jedoch einen 
Nachteil bei den Gleitkommazahlen: Das Arbeiten mit ihnen - die 

sog. Gleitkommaarithmetik - ist wesentlich Speicherplatz- und 
rechenzeitaufwendiger als die einfachere Integer-Arithmetik . Dies 
kommt daher, daß der Computer beim Arbeiten mit Gleitkommazahlen 
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sowohl über den Exponenten als auch über die Mantisse Buch führen 
rr.uß. Ein weiterer Nachteil: Integer-Operationen sind - solange 

sich kein Werteüber- oder Unterlauf ergibt - stets exakt. Bei 
Gleitkommaoperationen ergeben sich jedoch bei jedem Rechenschritt 
Rundungsfehler. Sie sollten also in Ihren FORTH-Prograuunen so oft 
wie möglich Integerarithmetik einsetzen. Manchmal ist es jedoch 
unumgänglich, mit Gleitkommazahlen zu rechnen. In FORTH-79 ist 

dieser Zahlentyp gar nicht vorgesehen. Im MMSFORTH und anderen 
RORTH-Systemen stehen Gleitkommazahlen jedoch zur Verfügung, 
weswegen wir sie hier darstellen. Für die Arbeit mit Gleitkomma 
zahlen gibt es in FORTH keinen Standard. Deshalb können auch die 
Worte, die mit diesem Zahlentyp operieren, auf jedem System an 
ders lauten. Die grundlegenden Ideen für die Verarbeitung von 

Gleitkommazahlen sind jedoch auf allen Systemen gleich. Deshalb 
werden wir uns im Folgenden auch mehr den elementaren Fragen 
widmen und nicht so sehr auf Details eingehen. 


5.7.1 Gleitkommaarithmetik in FORTH 


Wenn wir eine Gleitkommazahl eingeben wollen, dann müssen wir 
dies dem Computer irgendwie anzeigen. Dazu stellen wir der Zahl 
ein Prozentzeichen, gefolgt von einem Leerzeichen, voran. Mittels 

% 6 % 7 (RETURN) (5-35) 

legen wir also 6 und 7 als Gleikommazahlen auf den Stack. Auch 
hier gilt, daß man einer Zahl auf dem Stack nicht ansehen kann, 
ob es sich dabei um eine Gleikommazahl handelt, eine einfach 
genaue oder eine doppelt genaue Integer. Gleitkommazahlen benöti 
gen zu ihrer Speicherung ebenso wie doppelt genaue Integers zwei 
Stack-Positionen . 

F#IN - Dieses Wort wendet man an, um den Benutzer zur Eingabe 
einer Gleitkommazahl aufzufordern. Es funktioniert genauso wie 
das bereits bekannte #IN, außer daß es eine Gleitkommazahl auf 
dem Stack hinterläßt. 
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F. und F.R - Zur Ausgabe einer Gleitkommazahl setzen wir das 
FORTH-Wort F. ein. Dies entfernt die oberste Gleitkommazahl vom 
Stack und gibt sie auf dem Bildschirm aus. Die Stack-Relation 
lautet : 


f -> 


(5-36) 


Wie Sie sehen, benutzen wir 
len (engl. "floating point 
Denken Sie daran, daß jedes 
Positionen beansprucht. 


den Buchstaben 
numbers") auf 
"f" ebenso wie 


"f", um Gleitkommazahl 
dem Stack anzuzeigen, 
jedes "d" zwei Stack- 


Auch Gleitkommazahlen können in Datenfeldern ausgegeben werden 
(vgl. Abschnitt 3-3) . Dazu dient das FORTH-Wort F.R. Es hat 
folgende Stack-Relation: 


f n — > (5-37) 


Der oberste Stack-Eintrag, eine einfach genaue Integer, gibt die 
Feldbreite an. Er wird gefolgt von der Gleitkommazahl, die das 
Wort F.R ausgeben soll. Das Wort entfernt beide Zahlen vom Stack 
und gibt die Gleitkommazahl in einem Feld von der gewünschten 
Breite aus. 


5.7.2 Die Grundrechenarten 


Die FORTH-Wörter für die Grundrechenarten mit Gleitkommazahlen 
(Addition, Subtraktion, Multiplikation und Division) lauten F+, 
F— , F* und F/ . Sie entsprechen den bereits bekannten arithme 
tischen Wörtern +, und /. Alle haben sie die folgende Stack- 

Relation : 


f 2 


erg 


(5-38) 
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Jede der Operationen entfernt also die beiden Gleitkommazahlen 
vom Stack und ersetzt sie durch eine neue Gleitkommazahl. Beach 
ten Sie, daß bei Gleitkommazahlen eine dem MOD-Wort analoge Ope 
ration unnötig ist, da die Ergebnisse von Gleitkommaoperationen 
sowieso mit Nachkommastellen versehen sind. Wenn wir z.B. folgen 
des eingeben: 

% 50 % 3 F/ (RETURN) 

dann erhalten wir als Ergebnis auf dem Stack eine Zahl, die der 
Gleitkommazahl .166667 E 10 entspricht. 

Auch Gleitkommazahlen können in Programmen mit Integers gemischt 
werden; es liegt jedoch in der Verantwortung des Programmierers, 
den richtigen Zahlentyp bei der Arbeit an das richtige FORTH-Wort 
zu übergeben. (Es gibt nämlich keine Möglichkeit, einem Stack- 
Eintrag anzusehen, welchem Datentyp er zugehört.) So können z.B. 
Gleitkommaoperationen innerhalb einer Schleife ausgeführt werden. 
In diesem Fall wären die Schleifenparameter ganzzahlig, während 
die Operanden der Operationen Nachkommasteilen aufweisen. 


5.7.3 Stack-Manipulation 


Gleitkommazahlen benötigen ebenso wie doppelt genaue Integers 
zwei Stack-Einträge zur Speicherung. Wenn wir also Gleitkommazah 
len auf dem Stack manipulieren wollen, dann können wir dazu die 
selben FORTH-Wörter benutzen, die wir für die Manipulation von 
doppelt genauen Integers bereits kennengelernt haben. Es sind 
dies 2DUP, 2DROP, 2SWAP und 2R0LL. Als Beispiel schreiben wir 
eine neue Version der bereits bekannten Fakultätsfunktion, dies 
mal jedoch soll mit Gleitkommazahlen gerechnet werden. Sie sehen 
das Programm in Abbildung 5-4 . 


0 ( Berechnung der Fakultaet mit Gleitkommazahlen ) 

1 : FFACT 1 + % 1 14 ROLL SWAP 

2 DO I I— F F* LOOP F. ; 

3 

4 

ABBILDUNG 5-4: Fakultätsbe rechnung mit Gleitkommazahlen 
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Dieses Programm ist in seinem Aufbau dem von Abbildung 5-1 sehr 
ähnlich. Der einzige Unterschied besteht darin, daß jetzt mit 
Gleitkommazahlen gerechnet wird. In der Definition von FFACT 
taucht ein neues Wort auf: I— F . Dieses dient zur Umwandlung einer 

ganzen Zahl (Integer) in eine Gleitkommazahl ( " f loating-point 

number) . Es entfernt die oberste Integer auf dem Stack und er 
setzt sie durch eine gleichwertige Gleitkommazahl. Seine Stack- 
Relation : 


n -> f 


(5-39) 


Es wird also eine Integer, die eine Stack-Position zur Speiche 
rung benötigt, durch eine Gleitkommazahl mit einem Speicherbedarf 
von zwei Stack-Positionen ersetzt. Vergleichen wir nun das Pro 
gramm aus Abbildung 5-1 mit dem neuen Programm. In Zeile 2 der 
Abbildung 5-1 legen wir die 1 als doppelt genaue Integer auf den 
Stack, indem wir der Reihe nach 1 und 0 pushen. Entsprechend 
dient in Zeile 2 der Abbildung 5-4 die Eingabe von % 1 zum Ab 

legen der 1 als Gleitkommazahl auf dem Stack. In Zeile 2 der 
Abbildung 5-1 legen wir mittels I und 0 den Schleifenindex als 
doppelt genaue Integer auf den Stack. Zeile 3 der Abbildung 5-4 
stellt hingegen den Schleifenindex durch die Wörterfolge I und I- 
F als Gleitkommazahl zur Verfügung. In Zeile 3 der Abbildung 5-1 
drucken wir das doppelt genaue Ergebnis mit dem Wort D, während 
ähnlich in Zeile 3 der Abbildung 5-4 das Ausgabewort F. verwendet 
wird. Die Wörter, die die Stack-Manipulationen besorgen, sind in 
beiden Programmen gleich. Dies kommt daher, weil beide Programme 
mit Zahlen arbeiten, die jeweils zwei Stack-Positionen zur Spei 
cherung benötigen. 


5.7.4 Gleitkommafunktionen 


Neben den Grundrechenarten gibt es noch eine Reihe weiterer 
mathematischer Funktionen, die auf Gleitkommazahlen angewendet 
werden können. Wir stellen zuerst einige Funktionen vor, die in 
ihrer Arbeitsweise bereits bekannten ähneln. 

FABS und FMINUS - Das FORTH-Kommando FABS liefert den Absolutwert 
einer Gleitkommazahl und ist darin dem bereits bekannten Kommando 
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ABS ähnlich. FÄBS entfernt eine Gleitkommazahl vom Stack und er 
setzt sie durch ihren Absolutwert (als Gleitkommazahl) . 

las FORTH-Wort FMINUS dient ähnlich wie NEGATE zur Umkehrung des 
Vorzeichens einer Gleitkommazahl . Die beiden Wörter FABS und FMI 
NUS haben die Stack-Relation 


f 1 — > f 2 (5-40) 

Sie ersetzen also eine Gleitkommazahl auf dem Stack durch eine 
andere . 

Weiterhin gibt es eine Anzahl von FORTH-Wörtern, die zum Ver 
gleich von Gleitkommazahlen dienen. Das Wort SGN erlaubt es, das 
Vorzeichen einer Gleitkommazahl zu bestimmen. Das Wort entfernt 
die oberste Gleitkommazahl vom Stack und ersetzt sie durch eine 
einfach genaue Integer, die als Flag interpretiert werden kann. 
Der Wert von SGN ist entweder -1, 0 oder 1, je nachdem, ob die 
Ausgangszahl kleiner Null, gleich Null oder größer Null war. SGN 
oesitzt folgende Stack-Relation: 


f -> n 


(5-41) 


Zum Vergleich zweier Gleitkommazahlen dient das FORTH-Kommando 
FCOMP . Es entfernt zwei Gleitkommazahlen vom Stack und ersetzt 
sie durch eine einfach genaue Integer. Diese hat entweder den 
'Wert -1 ,0 oder 1 . Wir haben folgende Stack-Relation: 

f 1 f 2 — > n (5-42) 


Dabei ist n gleich -1, fallsf ^kleiner 
0, falls gilt f 1 = f_ und ist ansonsten 

II ZL 

Z. - glerch 1 . 


f 2 ist, es hat den Wert 
- wenn also f A größer als 


Arithmetische Operationen im gemischten Modus sind im Zusammen 
hang mit Gleitkommazahlen nicht möglich. Man kann also beispiels 
weise keine Integer mit einer Gleitkommazahl durch eine spezielle 
gemischte Arithmetikoperation multiplizieren lassen. Es gibt 
gedoch einen Ausweg aus dieser Notlage. Dieser besteht darin, 
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Umwandlungsfunktionen anzuwenden, die Zahlen von einem Datentyp 
in einen anderen umwandeln, also z.B. aus Integers Gleitkommazahl 
len machen und umgekehrt . 

Das Wort I— F haben wir bereits kennengelernt. Es wandelt eine 
Integer in eine Gleitkommazahl um, erwartet also eine einfach 
genaue Integer an oberster Stack-Position, entfernt sie von dort 
und ersetzt sie durch eine numerische gleichwertige Gleitkomma 
zahl. Wir wiederholen noch einmal die Stack-Relation: 


n 


> f 


(5-43) 


In der umgekehrten Richtung arbeitet CINT . Die Gleitkommazahl an 
oberster Stack-Position wird entfernt und durch eine ganze Zahl 
ersetzt. Dabei handelt es sich um die größte ganze Zahl, die 
kleiner oder gleich der Ausgangs-Gleitkommazahl ist. Da CINT zur 
Umwandlung von Gleitkommazahlen in ganze Zahlen dient, hat es 
folgende Stack-Relation: 


f — > n 


(5-44) 


Manchmal kann es nötig sein, eine Gleitkommazahl ganzzahlig zu 
machen, ohne ihren Datentyp zu ändern (d.h., ohne sie in eine 
Integer umzuwandeln) . In diesem Fall stehen zwei FORTH-Wörter zur 
Verfügung. Eines davon ist FIX. Das Wort entfernt die oberste 
Gleitkommazahl vom Stack und schneidet einfach deren Nachkomma 

stellen ab. Die sich daraus ergebende Gleitkommazahl wird als 

Ergebnis auf den Stack gelegt. 

Auch das FORTH-Wort INT arbeitet mit einer Gleitkommazahl, die es 
durch eine andere Gleitkommazahl ersetzt, welche numerisch gleich 
der größten ganzen Zahl ist, die kleiner oder gleich der Aus 

gangszahl ist. Bei positiven Zahlen liefern FIX und INT gleiche 
Ergebnisse. Anders sieht die Sache aus, wenn wir mit negativen 

Werten arbeiten. Beachten Sie, daß -8 die größte ganze Zahl ist, 
die kleiner oder gleich der Zahl -7,3 ist. 
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Auch für die mehr fortgeschrittenen mathematischen Funktionen 
gibt es FORTH-Wörter , die wir jetzt darstellen wollen. Die mei 
sten von ihnen ersetzen eine Gleitkommazahl auf dem Stack durch 
eine andere. 

LOG und LOGIO - Diese beiden Kommandos dienen zur Berechnung des 
natürlichen bzw. ds Zehner-Logarithmus einer Zahl. So erhalten 
vir z.B. durch Eingabe von 

% 100 LOGIO (RETURN) 

als Ergebnis die Gleitkommazahl 2 auf dem Stack. 

EXP und 10 A - Diese beiden FORTH-Kommandos bilden Potenzen der 

Eulerschen Zahl E, bzw. zur Basis 10. Durch Eingabe von 

% 2 IO' ' (RETURN) 

erhalten wir so z.B. die Gleitkommazahl 100 auf dem Stack. (An 
merkung: Auf den meisten Mikrocomputer-Tastaturen wird der Pfeil 

nach oben auch als Dächlein dargestellt) . 

1/X und SQR - Mit diesen FORTH-Bef ehlen kann man den Kehrwert 
bzw. die Quadratwurzel einer Gleitkommazahl berechnen. Beide Wör 
ter entfernen eine Gleitkommazahl vom Stack und ersetzen sie 
durch ihren Kehrwert (1/X) bzw. durch ihre Quadratwurzel (SQR) . 

SIN, COS, TAN und ATAN - Diese FORTH-Kommandos berechnen die trigo 
nometrischen Funktionen Sinus, Cosinus, Tangens und Arcustangens. 
Das Argument dieser Funktionen (die oberste Gleitkommazahl auf 
dem Stack) kann entweder in Winkelgraden oder im Bogenmaß angege- 
oen werden. Dazu gibt es zwei sehr nützliche FORTH-Wörter, näm 
lieh RADIANS und DEGREES . Diese beiden Wörter lassen den Stack 
unverändert. Wenn Sie das Kommando DEGREES geben, dann werden die 
Eingaben zu und die Ausgaben von allen trigonometrischen Funktio 
nen als Winkelgrade interpretiert. Nach Ausführung von RADIANS 
werden die entsprechenden Angaben im Bogenmaß eingelesen bzw. 
ausgegeben . 

RND - Dieses Wort entfernt die oberste Gleitkommazahl vom Stack 
und legt statt dessen dort eine Pseudozufallszahl ab. Die Zu 
fallszahl ist kleiner oder gleich der Ausgangszahl, vorausge 
setzt, die Ausgangszahl war gleich oder größer 1. Die Zufallszahl 
hat zwar einen ganzzahligen Wert, wird jedoch als Gleitkommazahl 
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gespeichert . Falls die Ausgangszahl auf dem Stack zwischen 0 und 
1 (aber kleiner 1) war, dann ist die Pseudozufallszahl eine 
reelle Zahl zwischen 0 und 1. Seien Sie vorsichtig, wenn Sie RND 
mit Gleitkommazahlen einsetzen, da sich hier die Ergebnisse von 
RND zusammen mit Integers unterscheiden (vgl. Abschnitt 2-7) . 

Neben den mathematischen Operationen, die - wie die eben bespro 
chenen - nur ein einziges Argument haben, gibt es natürlich auch 
mehrstellige Operationen. Diese entfernen 2 Gleitkommazahlen vom 
Stack und ersetzen sie durch eine einzige. 

X A Y - Mit diesem FORTH-Wort können Potenzen von Gleitkommazahlen 
gebildet werden. X A Y ersetzt zwei Gleitkommazahlen auf dem Stack 
durch eine neue Gleitkommazahl, die sich ergibt, wenn man die 
zweite Ausgangszahl zu einer Potenz erhebt, die durch die erste 
Ausgangszahl angegeben ist. Entsprechend lautet die Stack-Rela 
tion : 


ATN2 - Diese Funktion dividiert die zweite Gleitkommazahl auf dem 
Stack durch die erste Gleitkommazahl auf dem Stack und legt dort 
den Arcustangens des Ergebnisses ab. Die beiden Ausgangszahlen 
werden natürlich zuvor vom Stack entfernt. 

Die Gleitkommaoperationen und -funktionen, die wir hier kennenge 
lernt haben, sind Bestandteil des MMSFORTH-Systems . Denken Sie 
daran, daß sie nicht zum Standard von FORTH-79 gehören und in 
anderen Systemen unter Umständen etwas anders lauten können. 
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5 . 8 Doppelte Genauigkeit und komplexe Zahlen 


Dieser Abschnitt behandelt Zahlen, deren Speicherung vier Stack- 
oositionen benötigt. Das sind einmal doppelt genaue Gleitkomma 
zahlen. Die Gleitkommazahlen des letzten Abschnittes sind in der 
Hegel auf sechs Stellen genau. Dabei ist die Genauigkeit der Zahl 
nicht von ihrer absoluten Größe abhängig. So haben z.B. 

1 ,23456 

123, 456 

0, 123456 E15 

allesamt sechs signifikante Ziffern, sie unterscheiden sich aber 
gewaltig in ihrem Betrag. Beim Rechnen mit Gleitkommazahlen erge 
ben sich in der Regel kleine Fehler, sog. Rundunqsf ehler . Einige 
Programme führen nun eine große Menge von arithmetischen Operati 
onen mit Gleitkommazahlen aus, so daß sich diese Rundungsfehler 
r.äufen; der einzelne Rundungs fehler mag ohne Bedeutung sein, der 
Gesamteffekt kann sich jedoch durchaus auf die Genauigkeit des 
Ergebnisses bedeutend auswirken. Um mit mehr als sechs Stellen 
Genauigkeit rechnen zu können, stellen einige Systeme doppelt 
genaue Gleitkommazahlen zur Verfügung. In der Darstellung unter 
scheiden sich solche Zahlen dadurch, daß der Exponent von der 
Mantisse durch den Buchstaben D (und nicht, wie bei einfach ge 
nauen Zahlen durch E) abgetrennt wird. Bei der Speicherung benö 
tigen doppelt genaue Gleitkommazahlen vier Stack-Wörter, also 
genau doppelt soviel wie die einfach genauen Gleitkommazahlen. 
Deshalb sind Berechnungen mit diesem Zahlentyp auch wesentlich 
langsamer und verbrauchen mehr Speicherplatz. Sie sollten sich 
deshalb genau überlegen, ob Sie in Ihrem Programm mit doppelt 
genauen Zahlen arbeiten wollen. Auch ist dieser Datentyp kein 
Bestandteil von FORTH-79, findet sich jedoch in MMSFORTH. 

Beim Eingeben einer doppelt genauen Gleitkommazahl müssen wir den 
Interpreter auf den Datentyp der Zahl hinweisen; dies tun wir, 
indem wir der Zahl die Zeichenfolge D\ voranstellen. Erinnern Sie 
sich daran, daß zur Eingabe von einfach genauen Gleitkommazahlen 
das Prozentzeichen dient (vgl. Abschnitt 5-6) . Im allgemeinen 
werden FORTH-Wörter zur Manipulation von doppelt genauen Gleit 
kommazahlen gebildet, indem man den Buchstaben D den FORTH-Wör- 
tern voranstellt, die Berechnungen mit einfach genauen Gleitkom 
mazahlen anstellen. So ist z.B. DF#IN analog zu F#IN. Die Stack- 
Relation für DF#IN lautet: 
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-> d 


f 


(5-46) 


Wie Sie sehen können, stellen wir in Stack-Relationen eine dop 
pelt genaue Gleitkommazahl durch "d A " dar. 


5.8.1 Stack-Manipulationen 


Doppelt genaue Gleitkommazahlen benötigen bekanntermaßen vier 
Stack-Positionen. Deshalb braucht man spezielle FORTH-Wörtern, um 
mit diesen Zahlen Stack-Manipulationen ausführen zu können. Die 
Kommandos lauten 4DUP, 4DR0P, 4SWAP und 4 ROLL . Sie entsprechen 
den bekannten Kommandos für einfach genaue Gleitkommazahlen, 
außer daß die 2 durch eine 4 ersetzt wird. Beispielsweise dupli 
ziert das Kommando 4DUP die oberste doppelt genaue Gleitkommazahl 
auf dem Stack und hat deshalb folgende Stack-Relation: 


d f d f 


(5-47) 


Es wird also eine Gruppe von vier zusammenhängenden Stack-Wörtern 
dupliziert . 

Das FORTH-Kommando 4DROP entfernt die oberste doppelt genaue 
Gleitkommazahl vom Stack. Das bedeutet, daß alle unterhalb lie 
genden Einträge um 4 Positionen nach oben wandern. Hier die 
Stack-Relation : 


d 


f 


— > 


(5-48) 


Das FORTH-Kommando 4SWAP vertauscht die beiden obersten doppelt 
genauen Gleitkommazahlen und hat deshalb folgende Stack-Relation: 


d f1 d f 2 


d f 2 d f1 


(5-49) 


1 96 
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Das FORTH-Kommando 40VER dupliziert die zweite doppelt genaue 
Gleitkommazahl auf dem Stack an die erste Position. Dies bedeu 
tet, daß die fünfte bis achte Stack-Zeile noch einmal von Anfang 
an wiederholt werden. Die Stack-Relation ist 

d fl ? 2 > d fl d f 2 d fl (5-50) 

DF. und DF.R - Diese beiden Kommandos entsprechen den Worten F. 
und F.R. Das Wort DF. dient also zur Ausgabe einer doppelt ge 
nauen Gleitkommazahl, wobei diese auch noch vom Stack entfernt 
wird. Um eine solche Zahl in einem Datenfeld mit vorgegebener 
Breite auszugeben, benutzt man das Kommando DF.R, das eine ein 
fach genaue Integer und eine doppelt genaue Gleitkommazahl vom 
Stack entfernt. Die Integer dient in gewohnter Weise zur Angabe 
der Feldbreite. DF.R erwartet, daß die Integer an erster und die 
auszugebende Gleitkommazahl an zweiter Stack-Position zu finden 
ist . 


0 

( Fakultaetsberechnung 

mit 

doppelt 

genauen 

Gleitkommazahlen 

1 

; DFFACT 1 + D% 

1 

1 

6 ROLL 

SWAP 

2 

DO I I— F 

FDF 

DF* 

LOOP 

DF. ; 


3 

4 

5 

6 

7 

8 

9 

1 0 
11 
1 2 

1 3 

14 

15 


ABBILDUNG 5-5: Ein FORTH-Wort zur Berechnung der Fakultät 
mit doppelt genauen Gleitkommazahlen 
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5.8.2 Die Grundrechenarten 


Die FORTH-Wörter für die Addition, Subtraktion, Multiplikation 
und Division mit doppelt genauen Gleitkommazahlen lauten DF+, DF- 
, DF und DF/. Sie entsprechen den bereits bekannten Kommandos 
F+,F— , F* und F/, außer daß die Operanden jeweils vier Stack- 
Positionen anstelle von zwei beanspruchen. Alle haben sie die 
folgende Stack-Relation gemeinsam: 


d fl d f 2 > d f erg 


(5-51) 


5.8.3 Typumwandlung 


Auch für die Umwandlung zwischen einfach genauen und doppelt ge 
nauen Gleitkommazahlen gibt es spezielle Kommandos in FORTH. Zur 
Umwandlung einer einfach genauen Gleitkommazahl auf dem Stack in 
eine doppelt genaue dient das Kommando FDF . Seine Stack-Relation 
sieht folgendermaßen aus: 


f -> d 

f 


(5-52) 


Den umgekehrten Weg kann man mit DFF gehen. Dieses Wort entfernt 
eine doppelt genaue Gleitkommazahl vom Stack und legt an ihrer 
Stelle eine einfach genaue Gleitkommazahl dort ab. Das Ergebnis 
wird abgerundet, da es weniger signifikante Stellen aufweisen 
kann. Die Stack-Relation ist 


d f — > f 


(5-53) 


Das, was wir 
haben, wollen 
Spielprogramm 
hier nur auf 
ein. In Zeile 


über doppelt genaue Gleitkommazahlen kennengelernt 
wir noch einmal verdeutlichen, indem wir das Bei 
5-4 neu schreiben (vgl. Abbildung 5-5) . Wir gehen 
die Unterschiede zwischen diesen beiden Programmen 
2 benutzen wir anstelle von % das FORTH-Kommando 
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D% . Auf diese Art wird die 1 als doppelt genaue Gleitkommazahl 
auf den Stack gelegt. Ebenso findet sich in Zeile 2 anstelle von 
4 ROLL die Befehlsfolge 6 ROLL. Dies kommt daher, weil eine dop 
pelt genaue Gleitkommazahl zwei Stack-Positionen mehr an Spei 
cherplatz benötigt, als eine einfach genaue Gleitkommazahl. In 
Zeile 2 wollen wir wieder den Schleifenindex in das passende 
Datenformat umwandeln. Dazu bedienen wir uns zuerst des Kommandos 
I-F . Dadurch erhalten wir eine einfach genaue Gleitkommazahl, die 
wir jetzt mittels FDF in eine doppelt genaue umwandeln. Das rest 
liehe Programm entspricht weitestgehend dem in der Abbildung 5-4, 
außer daß zur Multiplikation und Ausgabe des Ergebnisses die 
Wörter DF* und DF. benutzt werden. 

Eine Handvoll Funktionen für doppelt genaue Gleitkommazahlen ent 
spricht den bereits bekannten Funktionen für einfach genaue Zah 
len dieses Typs. Sie lauten DFABS , DFMINUS , DFSIGN und DFCOMP . 
Sie entsprechen jeweils den Funktionen FABS, FMINUS, FSIGN und 
FCOMP . Im übrigen steht eine wesentlich größere Anzahl mathemati 
scher Funktionen für einfach genaue als für doppelt genaue Gleit 
kommazahlen zur Verfügung. 


5.8.4 Komplexe Zahlen 


Komplexe Zahlen setzen sich aus einem Realteil und einem Imagi 
närteil zusammen. MMSFORTH sieht Kommandos vor, mit denen auch 
dieser Zahlentyp manipuliert werden kann. Jede komplexe Zahl 
besteht aus einem Paar einfach genauer Gleitkommazahlen. Deshalb 
belegen auch komplexe Zahlen 4 Stack-Positionen, weswegen man zur 
Stack-Manipulation bei diesem Datentyp die Kommandos 4DUP, 4DROP, 
4 SWAP und 4 OVER heranziehen kann. 

Man signalisiert dem FORTH-Interpreter durch die Zeichenfolge 
CP\, daß eine komplexe Zahl eingegeben werden soll . Umgekehrt 
sorgt das FORTH-Wort CP. dafür, daß eine komplexe Zahl vom Stack 
entfernt und ausgegeben wird. Dabei wird davon ausgegangen, daß 
der Imaginärteil der Zahl zuoberst auf dem Stack liegt, gefolgt 
vom Real teil. 

Zum Beispiel erreicht man durch Eingeben von 
CP% 5 7 CP. (RETURN) 
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daß folgendes ausgegeben wird: 

(5,7) 

Für die Arithmetik mit komplexen Zahlen stehen die Wörter CP+, 
CP-, CP* und CP/ zur Verfügung. Alle vier entfernen zwei komplexe 
Zahlen vom Stack und ersetzen diese durch das Ergebnis (die Sum 
me, Differenz, das Produkt oder den Quotienten) . Ihre Stack-Rela 
tion lautet daher: 


c c m -> c 

PI P2 perg 


(5-54) 


Wie Sie sehen können, stellen wir komplexe Zahlen in den Stack- 
Relationen mittels "c " dar. Denken Sie daran, daß auch dieser 
Datentyp vier Stack-pBsitionen benötigt. 

Die Wörter MAG und PHASE entfernen eine komplexe Zahl vom Stack 
und ersetzen sie durch eine einfach genaue Gleitkommazahl, die 
entweder gleich dem Betrag oder der Phase (dem Winkel) der kom 
plexen Zahl ist. Bei der Darstellung der Phase kann man zwischen 
Winkelgraden und Bogengraden wählen. Dies erreichen Sie, indem 
Sie auf die bereits bekannten Wörter DEGREES oder RADIANS zurück 
greifen (vgl. Abschnitt 5-6) . 

Die Wörter R-P und P-R dienen dazu, komplexe Zahlen von einem 
Darstellungsformat ins andere umzuwandeln. Bei Ausführung von R— P 
sollte die komplexe Zahl, die an oberster Stack-Position steht, 
in cartesischen Koordinaten gegeben sein, wobei sich der Imagi 
närteil an oberster Stack-Position befindet. R-P ersetzt diese 
Zahl durch ihre Darstellung in Polarkoordinaten (d.h.. Betrag und 
Winkel) . Dabei wird der Winkel an oberste Stack-Position gelegt. 
Der Realteil und Imaginärteil bei der cartesischen Darstellung 
bzw. der Betrag und der Winkel bei der Polardarstellung sind 
jeweils einfach genaue Gleitkommazahlen. Sie sollten hier mit 
Vorsicht Vorgehen. Es gibt ja keine Möglichkeit, nur durch Inspi 
zieren des Stacks festzustellen, welche Art von Zahlen auf ihm 
gespeichert sind. So kann man z.B. eine einzelne komplexe Zahl 
nicht von vier einfach genauen Integers unterscheiden. Die mathe 
matischen Operationen CP+, CP-, CP* und CP/ nehmen allesamt an, 
daß ihre Argumente, die komplexen Zahlen, in cartesischer Form 
gegeben sind (also in der Form Realteil, Imaginärteil) . Deshalb 
sollte man die Umwandlungsfunktionen P-R und R-P nur bei der Ein- 
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Ausgabe von Daten anwenden, um hier zwischen diesen beiden Dar 
Stellungsmöglichkeiten wählen zu können. 

Noch zwei weitere FORTH-Wörter sind im Zusammenhang mit komplexen 
'.Zahlen verfügbar: CPMINUS und CONJ. Diese ersetzen jeweils eine 

Komplexe Zahl an oberster Stack-Position durch ihren negativen 
'Wert (CPMINUS) bzw. durch ihre komplex konjugierte Zahl (CONJ) . 


5 . 9 Übungsaufgaben 

In vielen der folgenden Übungsaufgaben werden Sie gebeten, FORTH- 
Wörter oder Programme zu schreiben. Überprüfen Sie Ihre Ergebnis 
se auf Ihrem eigenen Computer. Achten Sie darauf, die Definitio 
nen möglichst kurz zu halten, indem Sie eine komplizierte Aufgabe 
in mehrere Unterwörter "aufbrechen" (Modularisierung) . 

5-1 Erörtern Sie den Unterschied zwischen einfach genauen und 
doppelt genauen Integers. 

5-2 Wiederholen Sie Aufgabe 4-8 mit doppelt genauen Integers. 

5-3 Wiederholen Sie Aufgabe 4-9 mit doppelt genauen Integers. 

5-4 Wiederholen Sie Aufgabe 5-3, lassen Sie das Programm jetzt 

aber abbrechen, wenn die Summe größer 200 000 wird. 

5-5 Wiederholen Sie Aufgabe 4-13 mit doppelt genauen Integers; 

lassen Sie das Programm mit einer Fehlermeldung abbrechen, 

wenn das Produkt eine Million übersteigt. 

5-5 Wiederholen Sie Aufgabe 4-11 mit doppelt genauen Integers, 

und geben Sie das Ergebnis in einem 20 Zeichen breiten 
Datenfeld aus. 

5-7 Schreiben Sie ein FORTH-Wort, das die Funktion 
ab/ (c+d) 

möglichst genau berechnet . Die Variablenwerte a, b, c und d 
sollen auf dem Stack zur Verfügung gestellt werden. 
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5-8 Wiederholen Sie Aufgabe 5-7 mit doppelt genauen Integers . 

5-9 Schreiben Sie ein FORTH-Wort, das unter Verwendung von dop 
pelt genauen Integers den Punktedurchschnitt eines Studenten 
in fünf Prüfungen berechnet. Der Durchschnittswert soll mit 
dreistelliger Genauigkeit hinter dem Dezimalpunkt ausgegeben 
werden. Vergessen Sie nicht, das Dezimalkomma zu drucken! 

5-10 Schreiben Sie ein FORTH-Wort zur Berechnung der Verkäufer- 
Provision nach folgender Vorschrift: Bei Umsätzen bis 10 000 

DM beträgt die Provision 10%, bei Umsätzen zwischen 10 000 

und 50 000 DM beträgt die Provision 15%. Übersteigen die 

Umsätze 50 000 DM, so erhält der Verkäufer 18% Provision. 
Das FORTH-Wort soll die Summe der einzelnen Verkäufe berech 
nen und darauf basierend den Provisionsbetrag. Das Ergebnis 
soll als Geldbetrag ausgegeben werden, d.h., die Zeichenfol 
ge DM und ein Dezimalkomma müssen an passender Stelle er 
scheinen. Außerdem sollten Sie Tausenderstellen im Betrag 
durch ein Leerzeichen von den restlichen Ziffern abteilen. 
Sie können davon ausgehen, daß der Provisionsbetrag des Ver 
käufers 100 000 DM nicht übersteigt. Arbeiten Sie mit dop 

pelt genauen Integers. Versuchen Sie, Ihr Programm zu modu- 
larisieren, d.h., die Lösung in mehrere FORTH-Wörter aufzu 
teilen . 

5-11 Schreiben Sie ein Programm zur Berechnung der pythagore 
ischen Zahlentripel mit doppelt genauen Integers. 

5-12 Schreiben Sie ein FORTH-Wort zur Berechnung des folgenden 
Ausdrucks : 

ab/ (c+d) + e 

wobei a, b, c, d und e Integers sind. Die Zwischenergebnisse 
Ihrer Berechnungen sollten in doppelter Genauigkeit abgelegt 
werden . 

5-13 Erörtern Sie die Vorteile von Rechenoperationen im gemisch 
ten Modus . 

5-14 Was bedeutet der Ausdruck "vorzeichenlose Integer"? 

5-15 Kann auch eine vorzeichenlose Integer von doppelter Genauig 
keit sein? 
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5-16 Schreiben Sie ein FORTH-Wort zur Berechnung der pythagore 
ischen Zahlentripel mit vorzeichenlosen einfach genauen 
Integers . 

5-17 Wiederholen Sie Aufgabe 5-16, arbeiten Sie diesmal jedoch 
mit doppelt genauen Integers. Überlegen Sie sich genau, wie 

Sie die Daten ausgeben. 

5-18 Erörtern Sie die Funktionsweise der FORTH-Kommandos AND,OR 
und XOR. Schreiben Sie eigene Programme mit diesen Worten. 

5-19 Legen Sie den Unterschied zwischen Gleitkommazahlen und 

ganzen Zahlen dar. 

5-20 Wiederholen Sie Aufgabe 5-10 mit Gleitkommazahlen anstelle 
von Integers . 

5-21 Wiederholen Sie Aufgabe 5-11 mit Gleitkommazahlen. 

5-22 Wiederholen Sie Aufgabe 5-20 mit doppelt genauen Gleitkomma 

zahlen . 

5-23 Wiederholen Sie Aufgabe 5-21 mit doppelt genauen Gleitkomma 

zahlen . 

5-24 Schreiben Sie ein FORTH-Wort zur Berechnung des folgenden 
Ausdrucks 

(a+b) c/d 

wobei a, b, c und d komplexe Zahlen sind. 
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Zt allen Beispielprogranimen dieses Buches wurden Daten auf den 
Pzack übergeben. Dies ist guter FORTH-Programmierstil, da es 
ft- — sicherplatz spart und dafür sorgt, daß Programme schneller lau- 
rar. . Manche Aufgabenstellungen erfordern jedoch eine andere Spei- 
zr . erungsmethode, die für den Programmierer bequemer ist. Stellen 
5ie sich nur einmal vor, Sie wollen eine Konstante in einem Pro- 
rrwn mehrfach verwenden. Vor allem dann, wenn diese Konstante 
•-sie Stellen aufweist, ist es äußerst mühselig, sie jedesmal 
s_ rzugeben, wenn Sie sie brauchen. FORTH gibt Ihnen die Möglich- 
• eit, solchen Konstanten symbolische Namen zuzuweisen und sie im 
LroeitsSpeicher des Rechners abzulegen. Nachdem ein Name für die 
lor.stante vereinbart ist, kann man einfach den Namen anstelle des 
* : rstantenwerts in den Programmen eingeben. Andere Anwendungen 
srfordern den Einsatz von sog. Variablen . also Größen, deren 
»erte im Programm erst berechnet werden. Natürlich kann man 
sziehe Variable auch auf dem Stack speichern. Verwendet ein Pro- 
zramm aber sehr viele Variable, dann ist es für den Programmierer 
iah.r umständlich, über jede dieser Variablen auf dem Stack Buch 
z_ führen. FORTH stellt auch hier Lösungsverfahren bereit, mit 
zer.en Variable benannt und im Arbeitsspeicher des Computers ge- 
szeichert werden können. Mit einem einfachen Verfahren kann der 
Programmierer die Variablenwerte in seinem Programm erreichen, 
-.-.dem er auf sie über den Variablennamen zugreift. Auch ist es 
zehr einfach, den Wert einer Variablen zu ändern. Wir können also 
jir.en Variablenwert berechnen, im Speicher ablegen, diese Varia- 
zle in Berechnungen einsetzen, anschließend den Wert der Varia 
rian verändern und den ganzen Prozeß wiederholen. Diesem Verfah 
ren gilt unsere Aufmerksamkeit im vorliegenden Kapitel. 

Ift arbeiten Programme mit ganzen Gruppen solcher Variablenwerte, 
lies kann z.B. nötig sein, wenn wir für alle Teilnehmer eines 
Kurses die Punktzahl in Prüfungen ausrechnen. Zwar ist es mög- 
-ich, für jeden Teilnehmer das Programm getrennt laufen zu las 
sen; gerade dann, wenn in der Klasse viele Schüler sind, ist das 
.'erfahren aber viel zu umständlich. Wir werden Ihnen in diesem 
Kapitel zeigen, wie solche Variablengruppen zu sog. Arrays zusam- 
rer.gefaßt werden können und wie man auf eine einfache und elegan 
te Weise mit diesen in Programmen arbeitet. Doch zunächst stellen 
vir Ihnen die Konstanten vor. 
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6 . 1 Konstanten 


Wir werden jetzt ein Verfahren diskutieren, mit dem Konstanten im 
Arbeitsspeicher des Computers unter einem beliebigen, frei wähl 
baren Namen gespeichert werden können. Sie können dann diese 
Konstante auf den Stack bekommen, indem Sie einfach ihren Namen 
eingeben. Konstanten sind Werte, die sich während der Ausführung 
des Programms nicht ändern. Es gibt zwar Möglichkeiten zur Ände 
rung eines Konstantenwerts während des Programmlaufs; ihre Hand 
habung ist jedoch umständlich, und wir raten von ihrem Gebrauch 

ab. Wenn Sie in Ihren Berechnungen sich verändernde Werte unter 
bestimmten Namen abspeichern wollen, dann sollten Sie dies über 

Variable tun. Will man den Wert einer Konstanten in einem Pro 
gramm ändern, so kann man dies durch Edieren des Programms er 
reichen. Darüber später mehr in diesem Kapitel. 

CONSTANT - Zum Definieren einer Konstante dient das FORTH-Wort 
CONSTANT . Wir benutzen es in folgender Form: 

3600 CONSTANT H/S (RETURN) (6-1) 

Damit haben wir der Konstante mit dem Namen H/S den Wert 3600 

zugewiesen. Wir können jetzt überall dort, wo wir den Wert 3600 

benötigen, auch den Namen H/S einsetzen. Bei Ausführung des 
FORTH-Bef ehls CONSTANT wird die einfach genaue Integer an ober 
ster Stack-Position - in unserem Beispiel 3600 - vom Stack ent 

fernt und im Wörterbuch des Systems gespeichert, welches sich im 
Arbeitsspeicher des Computers befindet. Als Name für die Konstan 
te wird der Ausdruck verwendet, der unmittelbar auf den Befehl 
CONSTANT folgt. Die Stack-Relation lautet: 


n 


> 


( 6 - 2 ) 


Als Beispiel sehen Sie in Abbildung 6-1 ein FORTH-Wort zur Um 
Wandlung von Stunden in Sekunden. Zeile 1 definiert die Konstante 
H/S so, wie Sie es aus Beispiel 6-1 kennen. In Zeile 2 wird ein 
neues FORTH-Wort vereinbart, das den Namen STD/SEC trägt. Dieses 
Wort soll nichts anderes machen, als die Integer an oberster 
Stack-Position mit 3600 zu multiplizieren. Wir wollen also den 
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ir: 3600 auf den Stack legen; dies könnten wir natürlich errei- 

?n, indem wir ihn hinschreiben. Statt dessen benutzen wir je- 
; zr. die Konstante H/S. Dieses Beispiel ist zwar sehr einfach, 
_lii jedoch die grundlegenden Prinzipien beim Einsatz von Kon- 
; .arten erkennen. Eine Konstante wird nicht als Teil einer Wort- 
lefmition vereinbart. Sie müssen sie definieren, ehe Sie sie in 
e . r . em Programm einsetzen können. 


0 ( Beispiel fuer den Einsatz von Konstanten ) 

1 3600 CONSTANT H/S 

2 : STD/SEC H/S * . ; 

3 

4 

ABBILDUNG 6-1: Ein Beispiel für den Einsatz von Konstanten 


?'lr den Einsatz von Konstanten gibt es mehrere Gründe. Einer ist, 
ieß Konstanten leichter (kürzer) zu schreiben sind als Zahlen. 
Iir. weiterer Grund besteht darin, daß man sich den Namen einer 
konstante leichter merken kann als die Zahl selbst . (Denken Sie 
0.5. an die Kreiszahl "pi" mit ihrem Wert von 3,1415...) Ein wei 
terer Grund besteht darin, daß man eine Konstante leicht ändern 
<;ann, ehe man das Programm laufen läßt. Nehmen Sie z.B. einmal 
er.. Sie haben ein Programm geschrieben, das Zinsberechnungen 
ausführt. In diesem Programm kommt der Zinssatz, mit dem gearbei 
tet werden soll, mehrfach vor. Wenn Sie jetzt den Zinsbetrag als 
Zahl in Ihr Programm mitauf genommen haben und er ändert sich, 
dann müssen Sie mühselig von Hand jedes Vorkommnis des Zinsbe 
trags abändern. Anders, wenn Sie eine Konstante benutzen. Dort, 
«c in der ersten Version der tatsächliche numerische Betrag des 
Zinssatzes stand, steht jetzt nur eine Konstante. Ändert sich der 
Zinssatz, dann brauchen Sie vor Ausführung des Programms ledig 
lieh die Konstante zu ändern und haben sonst keine Arbeit mehr! 
Nicht zuletzt kann - gerade in Fällen wie dem eben geschilderten 
- die Verwendung von Konstanten mit dazu beitragen, daß Speicher- 
clatz in den Programmen eingespart wird und diese schneller lau 
f en . 

2CONSTANT - Natürlich kann man auch Konstanten mit doppelt genau 
en Integers definieren. Dazu dient das FORTH-Wort 2CONSTANT. 
Dieses verwendet man genauso wie das bereits bekannte CONSTANT, 
außer daß jetzt eine doppelt genaue Zahl definiert wird. 
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65535. 2C0NSTANT MEMSIZE (RETURN) 


(6-3) 


Jetzt können Sie in Ihren Programmen die Konstante MEMSIZE an 
stelle der doppelt genauen Integer 65535. schreiben. Die Stack- 
Relation für 2C0NSTANT lautet: 

d -> (6-4) 

Denken Sie daran, daß in vielen FORTH-Systemen erst spezielle 
Programmblöcke geladen werden müssen, ehe Sie mit doppelt genauen 
Integers arbeiten können. 


6.1.1 Gleitkcanmakonstanten 


Wenn Ihr FORTH-System mit Gleitkommazahlen rechnen kann, dann 
wird es höchstwahrscheinlich auch über die Möglichkeit verfügen. 
Gleitkommakonstanten zu definieren. Wir stellen hier die Wörter 
dar, die im MMSFORTH dafür zur Verfügung stehen. Um sie benutzen 
zu können, müssen Sie jedoch den Programmteil für Gleitkomma 
arithmetik laden. Denken Sie noch einmal daran, daß es keinen 
FORTH-Standard für Gleitkommazahlen gibt, so daß die nötigen Be 
fehle von System zu System unterschiedlich lauten können. Für das 
MMSFORTH-System sind hier die Wörter 2CONSTANT und 4CONSTANT maß 
geblich. Sie arbeiten mit einfach bzw. doppelt genauen Gleitkom 
mazahlen, welche Sie vom Stack entfernen und im Lexikon unter dem 
angegebenen Namen speichern. Diese beiden Wörter werden analog 
wie in Beispiel 6-1 bzw. 6-3 eingesetzt. Das Wort zur Definition 
einer einfach genauen Gleitkommakonstanten ist das gleiche wie 
das für doppelt genaue Integers. Warum dies so ist, geht aus den 
Ausführungen von Abschnitt 2-4 hervor. 
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6 . 2 Variable 


Eine Variable ist ein Wert, der erst zum Zeitpunkt der Programm- 
ausführung berechnet wird. Oftmals kommt es vor, daß dieser Wert 
an verschiedenen Stellen in einem FORTH-Wort benötigt wird, oder 
daß auch andere FORTH-Wörter diesen Wert benutzen wollen. Es ist 
rühselig, den Wert auf den Stack zu speichern und sich stets dar 
über im klaren zu sein, wo er sich gerade befindet. Deshalb er 
laubt es FORTH, solchen Variablen Namen zu geben und sie an ande 
rer Stelle im Arbeitsspeicher abzulegen. In diesem Punkt ähneln 
die Variablen den im letzten Abschnitt besprochenen Konstanten. 
Es gibt jedoch einen wesentlichen Unterschied: Variable in FORTH 

sind so ausgelegt, daß man ihren Wert mit möglichst wenig Aufwand 
ändern kann. Im Unterschied dazu haben die Entwickler von FORTH 
bei den Konstanten darauf geachtet, daß man möglichst schnell auf 
ihren Wert zugreifen kann. 

VARIABLE - Mit dem FORTH-Wort VARIABLE wird Speicherplatz für 
eine einfach genaue Integer im Arbeitsspeicher des Computers re 
serviert und für diesen ein Name vereinbart. Es wird diesem 
Speicherplatz jedoch noch kein Wert zugewiesen. Darin unterschei 
det sich VARIABLE von dem FORTH-Befehl CONSTANT, der ja nicht nur 
Speicherplatz reserviert und mit einem Namen versieht, sondern 
auch einen festen Wert dort ablegt, welcher sich dazu auf dem 
Stack befinden muß. Ein Beispiel für den Befehl VARIABLE: 

VARIABLE KEE (RETURN) ( 6 - 5 ) 


Dadurch wird im Wörterbuch des Computers Speicherplatz für eine 
einfach genaue Integer reserviert. Dieser 'Speicherplatz erhält 
den Namen KEE. Trifft das FORTH-System von jetzt an auf den Namen 
KEE, dann legt es die Adresse dieser Variablen auf den Stack. 


! und0 - Mit dem FORTH-Wort ! speichert man einen Wert an einer 
bestimmten Adresse ab. Meistens hat man für diese Adresse mit dem 
FORTH-Wort VARIABLE zuvor einen Namen vereinbart. Wenn wir z.B. 
wie in (6-5) eine Variable KEE vereinbart haben, dann können wir 
dieser jetzt den Wert 234 zuweisen, indem wir folgendes eingeben: 

234 KEE ! (6-6) 
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Wenn das FORTH-System auf den Variablennamen KEE 
pusht es die Adresse dieser Variablen auf den Stack, 
nimmt sich diese Adresse von KEE und den Wert 234 
sie vom Stack. Anschließend speichert er die 234 an 
nen Adresse. Das Wort ! hat folgende Stack-Relation: 


stößt, dann 
Der Befehl ! 
und entfernt 
der angegebe 


n a — > (6-7) 

Wir verwenden also in Stack-Diagrammen zur Darstellung von Spei 
cheradressen den Buchstaben "a" . Wenn der Variablen KEE vor 

Ausführung von (6-6) bereits ein Wert zugewiesen worden war, dann 
ist dieser jetzt verloren. Nach Ausführung von (6-6) hat die 

Speicheradresse mit dem Namen KEE unwiderruflich den Wert 234, 
egal, was sich dort zuvor befunden haben mag. 

Mit dem FORTH-Kommando § besorgen wir uns den Wert einer Varia 
bien und legen ihn auf den Stack. Wir gehen wieder davon aus, daß 

soeben (6-6) ausgeführt und damit der Variablen KEE der Wert 234 

zugewiesen worden ist. Wir wollen uns jetzt ansehen , welchen Wert 
KEE hat und dazu den Wert auf den Stack bekommen. Dies können wir 
folgendermaßen bewerkstelligen: 


KEE § 


( 6 - 8 ) 


Der Befehl hat folgende Stack-Relation: 
a — > n 


(6-9) 


Er funktioniert folgendermaßen: 


§ entfernt die oberste Zahl vom Stack und behandelt sie als eine 
Speicheradresse. Der Wert, der unter dieser Adresse abgespeichert 
ist, wird als nächstes auf den Stack gelegt und ersetzt dort die 
ursprüngliche Adresse. Diese Operation ändert nichts am Wert der 
Variablen, d.h., KEE hat vor und nach Ausführung von (6-8) unver 
ändert den Wert 234. 

Wir wollen den Einsatz von Variablen jetzt an unserem bereits 
bekannten Beispiel mit den pythagoreischen Zahlentripeln demon 
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strieren (vgl. Ab. 6-2) . Wir wollen dieses Programm mit dem in 
Abbildung 4-7 vergleichen, bei dem alle Werte auf dem Stack ge 
speichert waren. 


(Pythagoreische Zahlentripel mit Variablen) 

1 VARIABLE A VARIABLE B VARIABLE C 

2 VARIABLE Al VARIABLE Bl VARIABLE CI 


3 

4 

5 

6 

7 

8 
9 

1 0 
1 1 
12 
1 3 
14 
1 5 


: PT 15 .R ; 

: SQUARE DUP * ; 

: VP YTHTRIP CR 100 1 
100 I DO I DUP 
142 I DO I DUP 
A@B@ + C§ - 

Al @ PT Bl § 
THEN 0< IF 

LOOP 

LOOP 
LOOP ; 


DO I DUP SQUARE A 
SQUARE B ! Bl ! 

SQUARE C ! CI 
DUP 0= IF 
PT CI § PT CR 
LEAVE THEN 


AI ! 


ABBILDUNG 6-2 : Berechnung pythagoreischer Zahlentripel 

mit Variablen 


In den ersten beiden Zeilen der Abbildung 6-2 vereinbaren wir 
sechs Variable mit den Namen A,B,C,A1,B1 und CI. Nachdem wir uns 
in Zeile 3 und 4 die Wörter PT und SQUARE definiert haben, sind 
alle nötigen Vorbereitungen abgeschlossen. Wenden wir uns jetzt 
dem eigentlich interessanten Wort zu, das auf Zeile 5 beginnt und 
den Namen VPYTHTRIP trägt. Das einleitende CR steht hier aus 
ästhetischen Gründen, um die Lesbarkeit unserer Ergebnisse zu 
steigern. Wieder haben wir es mit drei ineinander geschachtelten 
Schleifen zu tun. Die äußere wird lOOmal durchlaufen, wobei zu 
erst der Schleifenindex auf den Stack gelegt und dupliziert wird. 
Als nächstes rufen wir das Wort SQUARE. Jetzt enthält der oberste 
Stack-Eintrag das Quadrat des äußersten Schleifenindex, während 
der zweite Stack-Eintrag den Index selbst enthält. Nach Ausfüh 
rung von A und ! wird der oberste Stack-Eintrag in der Variablen 
A gespeichert. Diese enthält nun also das Quadrat des Laufindex 
der äußersten Schleife. Ähnlich speichern wir uns durch die 
Befehlsfolge AI und ! in der Variablen Al den Index der äußeren 
Schleife. Nach Ausführung von Zeile 5 ist der Stack leer. Die 
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Zeilen 6 und 7 wiederholen im wesentlichen dieselben Schritte wie 
die Zeile 5. Das bedeutet, daß nach Ausführung dieser beiden 
Zeilen die Variablen B und Bl das Quadrat sowie den Index der 

mittleren Schleife enthalten. Schließlich speichern wir in C und 
CI auch noch die entsprechenden Größen für die innerste Schleife. 
In Zeile 8 wird der Wert der Variablen A und B auf den Stack 

gelegt und anschließend mittels + A addi A rt. Der Stack enthält nun 
an oberster Stelle den Wert von a + b Diesen vergleichen wir 
mit A em W A rt v A n C, indem wir C ausführen. Um herauszufinden, 
ob a z + b z = c gilt, subtrahieren wir den Wert von C mittels -. 
Diese Differenz duplizieren wir und unterwerfen sie dann einem 
Vergleich mittels 0=. Fällt der Vergleich positiv aus, d.h., das 
Flag vom Stack ist "wahr", dann besorgen wir uns den Wert der 
Variablen Al, Bl und CI aus dem Arbeitsspeicher un A geb A n ihn aus. 
Ansonsten überprüfen wir, ob der Wert von a + b - c kleiner 0 
ist. Ist dies der Fall, dann verlassen wir die innerste Schleife. 
Wie Sie sehen, benutzen wir hier den gleichen Algorithmus wie in 
Abbildung 4-7. Beachten Sie, daß die Variablenvereinbarung kein 
Teil der Wortdefinition ist. Variable müssen stets definiert wer 

den, ehe man sie in einem Wort einsetzen kann. 

Variable machen dem Programmierer das Leben wesentlich angeneh 
mer. Wie Sie an dem Beispiel in Abbildung 6-2 sehen können, muß 
man sich beim Programmieren mit Variablen um wesentlich weniger 
Details kümmern, als es bei dem vergleichbaren Programm in Abbil 
düng 4-7 nötig war. Dieser Vorteil muß jedoch mit einem Nachteil 
erkauft werden: Programme mit Variablen benötigen in der Regel 

eine längere Ausführungszeit als solche, die nur mit dem Stack 

arbeiten. Dies kommt daher, weil zum Speichern und Wiederauffin 
den der Variablenwerte zusätzliche Operationen nötig sind. Diese 
wollen wir jetzt darlegen. Wenn Sie eine Variable definieren, 
dann wird diese in das Lexikon von FORTH mit aufgenommen. Aller 
dings unterscheidet sich der Wörterbucheintrag einer Variablen 
von dem für ein Wort (vgl. Abschnitt 2-4) . Der Wörterbucheintrag 
für ein Wort enthält ja neben dem Namen auch noch die Instruktio 
nen, die seine Definition ausmachen; der Wörterbucheintrag für 
eine Variable reserviert lediglich Speicherplatz für diese Varia 
ble. Wenn FORTH auf einen Variablennamen stößt, dann legt es die 
Adresse des Wörterbucheintrags dieser Variablen auf den Stack. 
Der Befehl ! nimmt diese Adresse und die nächste Zahl auf dem 
Stack und speichert die Zahl an der angegebenen Adresse. Ähnlich 
entfernt § eine Zahl vom Stack und interpretiert diese als die 
Adresse der Variablen, deren Wert auszugeben ist. 
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Variablenadressen werden intern als vorzeichenlose einfach genaue 
Integers gespeichert. Den Befehlen ! oder @ muß deshalb nicht un 
bedingt ein Variablenname vorausgehen. Wenn der Programmierer die 
fragliche Adresse genau kennt, dann kann er sie direkt als vor 
zeichenlose Integer eingeben. 

All diese einzelnen Arbeitsschritte verlangsamen das Programm. 
Die Wörterbuchsuche braucht ihre Zeit, ebenso das Aufsuchen von 
Adressen und Speichern von Zahlen an diesen Adressen. Wenn also 
alle anderen Umstände gleich sind, dann läuft ein FORTH-Programm 
ohne Variable schneller als eines, das Variable verwendet. Das 
Programm aus Abbildung 4-7 läuft so z.B. l,35mal schneller als 
das Programm in Abbildung 6-2 . 

PORGET - D ieses bereits aus Kapitel 2-4 bekannte Wort kann für 
Variable genauso verwendet werden wie für normale FORTH-Wörter . 

+ ! - Oftmals kommt es vor, daß wir auf eine Variable einen be 

stimmten Integerwert addieren wollen. Wir könnten dazu die Varia 
ble holen, die beiden Zahlen addieren und anschließend die Summe 
wieder speichern, es gibt jedoch ein einziges FORTH-Wort, das all 
diese Schritte ausführt. Dieses lautet +! und macht folgendes: 
Der zweite Stack-Eintrag, eine einfach genaue Integer, wird zum 
Wert der Variablen hinzuaddiert, deren Adresse sich an oberster 
Stack-Position befindet. Beide - Variablenadresse und Integer - 
werden vom Stack entfernt. 


6.2.1 Variable und doppelt genaue Integers 


Es ist auch möglich, doppelt genaue Integerwerte in Variablen ab 
zulegen. In den Einzelheiten funktionieren die dazu dienenden 
Wörter ähnlich wie die für einfach genaue Integers. 

2VARIABLE - Das FORTH-Wort 2VARIABLE ist ähnlich wie VARIABLE, 

reserviert aber im Wörterbuch Speicherplatz für eine doppelt 
genaue Integer. Mit 


2VARIABLE KEY 


( 6 - 10 ) 


215 



6 Konstanten, Variable und Arrays 


richten Sie also einen Wörterbucheintrag ein, der den Namen KEY 
hat und eine doppelt genaue Integer aufnehmen kann. 

2 ! und 2 @ - Dieses sind die FORTH-Kommandos für das Speichern 
(21) und Wiederfinden (2@) von Variablen bzw. ihren Werten. Das 
Wort 2 ! hat die Stack-Relation 

d a — > (6-1 1 ) 


Die Stack-Relation für 2@ lautet: 


a — > d 


( 6 - 12 ) 


Denken Sie daran, daß in Stack-Relationen "a" zur Darstellung 
vorzeichenloser einfach genauer Integers dient, während mit "d" 
eine doppelt genaue Integer signalisiert wird. 


6.2.2 Variable und Gleitkommazahlen 

Das MMSFORTH-System und andere FORTH-Systeme erlauben es auch, 
Gleitkommazahlen in Variablen zu speichern. Wir stellen diese 
Möglichkeiten dar, möchten Sie aber noch einmal daran erinnern, 
daß die zugehörigen Wörter nicht standardisiert sind. Für die 
Arbeit mit einfach genauen Gleitkommazahlen verwendet man diesel 
ben FORTH-Kommandos wie bei doppelt genauen Integers, also 2VA- 
RIABLEj 2! und 2 § . 

Beim Einsatz mit Gleitkommazahlen schreiben wir die Stack-Rela 
tionen für 2! und 2 @ in folgender Form: 


f a — > 


( 6-13a) 


und 


a — > f 


(6-13b) 
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Wenn Sie doppelt genaue Gleitkommavariable benötigen, dann brau 
chen Sie nur Kommandos zu geben, die denen für einfach genaue 
Variable entsprechen, außer daß anstelle einer 2 eine 4 steht. 
Wir haben also die Wörter 4VARIABLE, 4! und 4@. Die Stack-Rela 
tionen für 4! und 4@ lauten: 


d f a — > 


(6-1 4a) 


und 


a — > d A 


(6-14b) 


6 . 3 Arrays 


Viele Programme führen wiederholte Berechnungen mit einer ganzen 
Liste von Variablen aus. Wir haben gesehen, daß über Programm 
schleifen das Wiederholen von Berechnungen drastisch vereinfacht 
wird. Jetzt werden wir ein weiteres Verfahren kennenlernen, das 
solche Prozeduren vereinfacht, falls Variablenlisten mit ins 
Spiel kommen sollen. In der Sprache der Programmierer nennt man 
diese Variablenlisten auch Arrays ■ 


Aus den letzten Abschnitten wissen Sie, daß durch die Deklaration 
einer Variablen (durch das Wort VARIABLE oder andere) Speicher 
platz im Arbeitsspeicher des Computers reserviert wird. Dies wol 
len wir jetzt etwas genauer untersuchen. In einem typischen Heim- 
cder Personal Computer werden einfach genaue Integers in 16 Bit 
gespeichert . Da man in der EDV üblicherweise eine Gruppe von 8 
Bit zu einem Byte zusammenfaßt, kann man sagen, daß zur Spei 
cherung von einfach genauen Integers zwei Byte benötigt werden. 
Pür doppelt genaue Integers braucht man entsprechend vier Byte, 
üblicherweise haben die Speicherwörter eines Computers (die 

kleinste vom Computer adressierbare Einheit im Arbeitsspeicher) 
ebenfalls eine Größe von einem Byte, weswegen wir dies auch hier 
in unseren Ausführungen annehmen wollen. Auch wenn Ihr Computer 
größere Speicherwörter benutzen sollte, dann gelten die grundle 
genden Darlegungen dieses Kapitels dennoch. Wenn wir eine Varia 
ble deklarieren (vergleiche (6-5)), dann werden für den aufzuneh 
menden Wert dieser Variablen in Ihrem Wörterbucheintrag zwei 
3ytes reserviert. Wir können dort jetzt eine einfach genaue 
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Integer speichern. Wenn es uns nun gelänge, für diese Variable 
einen Speicherplatz von 100 Byte zu reservieren, dann könnte man 
50 einfach genaue Integers unter diesem Variablennamen ablegen. 
Wir zeigen Ihnen jetzt, wie man den reservierten Speicherplatz 
für einen Variableneintrag im Wörterbuch vergrößern kann und wie 
man eine große Anzahl von Variablenwerten in diesen Speicherplatz 
schreiben bzw. aus diesem Speicherplatz holen kann. 

ALLOT - Das FORTH-Wort ALLOT holt sich die oberste einfach genaue 
Integer vom Stack und erweitert den Speicherplatz des zuletzt 
definierten Wortes um die entsprechende Anzahl von Bytes. Die 
Anzahl von Bytes, um die diese Variable erweitert wird, ent 
spricht also der Integer, die ALLOT vom Stack holt. Betrachten 
Sie dazu diese Kommandofolge: 


VARIABLE KEE 
40 ALLOT 


(6-15a) 

(6-15b) 


Nach Ausführung von 6 — 15a enthält der Wörterbucheintrag für die 
Variable KEE zwei Byte, die zur Aufnahme der Variablenwerte be 
stimmt sind. Nach Ausführung von ( 6 — 1 5b ) haben wir jedoch insge 
samt 42 Byte an Speicherplatz unter dem Variablennamen KEE zur 
Verfügung. Zwei Byte wurden bereits bei Deklaration der Variablen 
(6-15a) zugewiesen, während das FORTH-Wort ALLOT in (6-15b) dafür 
sorgt, daß 40 weitere Byte hinzukommen. Die Stack-Relation für 
ALLOT lautet einfach: 


n 


— > 


(6-16) 


Jetzt wollen wir einmal sehen, wie man einzelne (einfach genaue) 
Integers an dem so zugewiesenen Platz speichert bzw. von dort 
liest. Bekanntermaßen wird eine einfach genaue Integer ja in zwei 
Bytes (zwei Speicherwörtern) abgelegt. Wenn wir den Variablenna 
men KEE im FORTH-System eingeben, führt dies dazu, daß die Adres 
se dieser Variablen auf den Stack gelegt wird. Genauer gesagt: 
Die Erwähnung eines Variablennamens legt die Adresse des ersten 
der beiden Bytes auf den Stack, die zur Speicherung des Varia 
blenwerts benötigt werden. Wenn die Kommandos ! oder § aufgerufen 
werden, dann "wissen" Sie, daß die Ihnen zur Verfügung gestellte 
Adresse sich auf das erste Byte des Variablenwerts bezieht. Nach 
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Ausführung von (6-15b) haben wir unter dem Variablennamen KEE 
; edoch wesentlich mehr Platz zur Verfügung und können so mehr als 
nur eine einzige Integer speichern. Angenommen, wir wollen eine 
zweite einfach genaue Integer speichern, diesmal jedoch im drit 
ten und vierten Speicherwort von KEE. Dies erreichen wir mit der 
folgenden Wortfolge: 


98 KEE 2 + ! (RETURN) 


(6-17) 


Damit wird die einfach genaue Integer 98 im dritten und vierten 
3yte der Variable KEE abgelegt. Dies geht im einzelnen so: Zuerst 

legen wir den zu speichernden Wert (98) auf den Stack. Anschlie 
ßend schreiben wir den Variablennamen KEE hin, wodurch die Adres 
se des ersten Speicherwortes der Variablen auf den Stack gelegt 
wird. Durch Eingeben von 2 + addieren wir nun 2 auf diese Adres 
se . Damit haben wir die Adresse des dritten Bytes, das zu KEE 
gehört. Deswegen speichert ! den Wert 98 auch an dieser Stelle. 
Um den Variablenwert wieder auszulesen, bedienen wir uns eines 
ähnlichen Verfahrens: 


KEE 2 + § 


(6-18) 


Damit legen wir den Wert 98 auf den Stack. Denken Sie daran, daß 
man sich einen Variablenwert mittels § holen kann, ohne daß 
dieser dadurch verändert wird. Wenn man eine Variable so erwei 
tert, daß sie zur Speicherung einer ganzen Liste von Werten be 
nutzt werden kann, dann bezeichnet man sie auch als Arrav . Lassen 
Sie uns nun unser erstes Beispielprogramm mit Arrays schreiben. 
Wieder machen wir es uns zur Aufgabe, den Teilnehmern an einem 
Kurs Noten zuzuweisen, und zwar auf der Basis ihres Leistungs 
durchschnitts in den einzelnen Tests. Wir gehen davon aus, daß 
die Durchschnittswerte der Kursteilnehmer bereits in einem Array 
mit dem Namen AVERAGE gespeichert sind. Das erste Element dieses 
Arrays fällt etwas aus der Reihe. Es gibt nämlich die Anzahl der 
Kursteilnehmer an und stellt keinen Durchschnittswert dar. Alle 
anderen einfach genauen Integers sind jedoch Punktzahlen, die den 
Leistungsdurchschnitt der einzelnen Studenten darstellen. Weiter 
hin gehen wir davon aus, daß die Position eines Durchschnitts 
werts im Array mit der Klassennummer des Teilnehmers überein 
stimmt. Der Teilnehmer Nummer 1 hat seine Daten also an erster 


21 9 



6 Konstanten, Variable und Arrays 


Postition, Teilnehmer Nummer 2 an zweiter usw. Dies können wir 
machen, da bei der Arbeit mit Arrays in der Regel mit dem Index 0 
begonnen wird, d.h., der erste Dateneintrag im Array befindet 
sich an Position 0. Position 0 ist in unserem Beispiel aber die 
Anzahl der Teilnehmer, während Position 1 der Durchschnitt des 
ersten Teilnehmers, Position 2 der des zweiten Teilnehmers ist 
usw . 


0 (Beispiel mit Arrays und ALLOT) 

1 VARIABLE DURCH 200 ALLOT 

2 : BEWERTUNG DURCH § 1+1 

3 DO CR 2 I * DURCH + § 

4 . " STUDENT NO. " I 

5 ELSE ."STUDENT NO. 

6 THEN 

7 LOOP ; 

8 

9 (Beispiel fuer Dateneingabe in Arrays) 

10 : INPDRCH CR . " Bitte Teilnehmerzahl eingeben " 

11 # IN DUP DURCH ! 1 + 1 CR DO 

12 ." Durchschnitt des Teilnehmers Nr. " I . #IN 

13 CR DURCH I 2 * + ! 

14 LOOP CR ; 

15 


59 - 0> IF 

. " BESTEHT " 

I . " FAELLT DURCH " 


ABBILDUNG 6-3: Ein FORTH-Programm, das mit Arrays arbeitet 


Unser Programm (vgl. Abb . 6-3) gibt die Nummer jedes Teilnehmers 

aus und druckt dahinter BESTEHT oder FäLLT DURCH. Falls der Punk 
tedurchschnitt den Wert 60 übersteigt, dann besteht der Teil 
nehmer. Jetzt zu den Einzelheiten dieses Programms. Als erstes 
reservieren wir uns in Zeile 1 eine Variable mit dem Namen DURCH, 
aus der wir anschließend einen Array machen, indem wir 200 ALLOT 
eingeben. Dadurch kommen 200 weitere Byte zum Speicherplatz von 
DURCH h inzu. Dies bedeutet, daß weitere 100 einfach genaue Inte- 
gers gespeichert werden können. Insgesamt kann der Array DURCH 
also 101 sog. Elemente aufnehmen. Im Rest der Abbildung 6—3 wer 
den zwei neue FORTH-Wörter definiert . Das Wort BEWERTUNG be 
rechnet das Abschlußergebnis und gibt es aus. Ehe dieses Wort an 
gewendet werden kann, müssen jedoch die Werte in den Array DURCH 
gebracht werden; dazu dient das Wort INPDRCH. Wir nehmen einmal 
an, daß DURCH bereits mit Werten versorgt ist und sehen uns an. 
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was BEWERTUNG nun macht. Die erste Zahl im Array DURCH stellt die 
Anzahl der Kursteilnehmer dar. Wir gehen davon aus, daß der Kurs 
weniger als 100 Teilnehmer besitzt, da wir ja nur Platz für 
insgesamt 100 Elemente mittels ALLOT reserviert haben. Achten Sie 
genau darauf, daß Sie nicht mehr Speicherplatz verwenden, als Sie 
reserviert haben. Sollten Sie in der vorliegenden Situation etwa 
versuchen, das 102te Element von DURCH zu beschreiben, dann 
können Sie unter Umständen wertvolle Information im FORTH-Wörter- 
buch dadurch zerstören. 

Jetzt zu dem Wort BEWERTUNG. In Zeile 2 besorgen wir uns die 
Adresse des Arrays, indem wir seinen Namen DURCH hinschreiben. 
Genaugenommen steht jetzt die Adresse des ersten Datenelements 
auf dem Stack. Dieses Datenelement besorgen wir uns nun mit § . 
Vereinbarungsgemäß haben wir nun an oberster Stack-Position die 
Anzahl der Kursteilnehmer stehen. Zu dieser Zahl addieren wir nun 
1 hinzu, pushen eine weitere 1 auf den Stack und haben damit die 
Parameter für eine DO-Schleife eingerichtet. In diese Schleife 
treten wir in Zeile 3 mit dem bekannten Schlüsselwort DO ein. Das 
Wort entfernt den Anfangswert für den Schleifenindex sowie den 
Testwert vom Parameter-Stack und legt ihn auf den Return-Stack. 
Der erste Befehl in der Schleife - CR - sorgt dafür, daß die Pro 
grammausgaben lesbarer werden. Jetzt multiplizieren wir den 
Schleifenindex mit 2 und holen die Anfangsadresse des Arrays 
DURCH, auf die wir den soeben erhaltenen Wert (Schleifenindex mal 
2) addieren. Zu diesem Zeitpunkt befindet sich somit die Origi 
naladresse unserer Daten, erhöht um zweimal den Schleifenindex 
auf dem Stack. Als nächstes führen wir das Wort @ aus. Dies be 
deutet, daß bei jedem Schleifendurchgang der Durchschnittswert 
eines Kursteilnehmers aus dem Arbeitsspeicher geholt und auf den 
Stack gelegt wird. Wir können nicht einfach den Schleifenindex 
benutzen, um auf die einzelnen Elemente des Arrays DURCH zuzu 

greifen, da ja zur Speicherung einer einfach genauen Integer zwei 
Byte benötigt werden. Das ist der Grund, warum wir vor dem Zu 

griff auf die Daten den Schleifenindex mit 2 multiplizieren. 

Jetzt können wir testen, ob der Teilnehmer bestanden hat: wir 
legen 59 auf den Stack und subtrahieren diesen Wert vom Durch 

schnittswert des Kursteilnehmers. Wenn das Ergebnis größer Null 
ist, dann besteht der Teilnehmer, ist die Differenz jedoch klei 
ner Null, dann ist er durchgefallen. Diese beiden Fälle unter 
scheiden wir, indem wir uns von dem Vergleichswort 0> ein Flag 
auf den Stack legen lassen. Falls dieses Flag "wahr" ist, kommt 

der Teilnehmer durch, ansonsten fällt er durch. Mittels IF-ELSE- 
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THEN geben wir die jeweils passende Meldung aus und vergessen 
nicht, die laufende Nummer des Teilnehmers dabei mit aufzunehmen. 

Wir könnten die Werte in den Array DURCH bringen, indem wir das 
im Beispiel (6-17) vorgestellte Verfahren benutzen. Dies ist je 
doch wesentlich mühseliger als das selbstdefinierte Wort INPDRCH, 
das Sie auch in Abbildung 6—3 sehen. Das Wort fordert den Benut 
zer selbsttätig zur Eingabe der richtigen Daten auf. Er muß nur 
mehr die Durchschnittswerte eingeben und braucht sich nicht mehr 
darum zu kümmern, daß diese an der richtigen Stelle im Array ab 
gelegt werden. Im einzelnen geht das folgendermaßen. In Zeile 10 
der Abbildung 6-3 geben wir die Meldung BITTE ANZAHL DER TEILNEH 
MER EINGEBEN:. Diese Teilnehmer zahl lesen wir dann in Zeile 11 
mit dem FORTH-Wort #IN ein. Der Benutzer sieht also ein Fragezei 
chen auf dem Bildschirm, und das Programm hält an, bis er die 
gewünschte Zahl eingegeben hat . Diese Zahl wird als nächstes 
dupliziert und an Position Null des Arrays DURCH gespeichert, das 
erreichen wir ganz einfach dadurch, daß wir auf den Variablenna 
men den Speicherbefehl ! folgen lassen. Der Rest von Zeile 11 
bereitet die Schleifenparameter vor. Vor Eintritt in die Schleife 
sorgen wir noch mittels CR dafür, daß die nachfolgende Eingabe 
aufforderung auf einer eigenen Zeile zu stehen kommt. In der Zei 
le 12 geben wir die Meldung: "Durchschnitt des Teilnehmers Nr." 

aus. Hinter dieser Meldung zeigen wir dem Bediener den Schleifen 
index. Das Eingabewort #IN besorgt sich nun vom Benutzer die 
fragliche Punktzahl. Diese wird in Zeile 13 an der richtigen 
Stelle abgespeichert. Dazu pushen wir die Anfangsadresse von 
DURCH auf den Stack und addieren dazu den mit 2 multiplizierten 
Schleifenindex. Das Vorgehen ist hier also völlig analog zu dem, 
das wir in BEWERTUNG bereits kennengelernt haben. Nach einem 
Durchgang durch die Schleife ist im richtigen Element von DURCH 
der Punktedurchschnitt des Teilnehmers abgespeichert. 

ARRAY - Wie man Arrays mit ALLOT vereinbart, haben wir bereits 
erfahren. Im MMSFORTH und anderen FORTH-Systemen gibt es jedoch 
ein bequemeres Verfahren, mit dem Arrays vereinbart werden kön 
nen . Dazu benutzt man das Wort ARRAY in folgender Weise: 


100 ARRAY DURCH (6-19) 

Diese Kommandofolge bewirkt das gleiche wie die Zeile 1 von 
Abbildung 6-3. Es wird also ein Wörterbucheintrag für die Varia- 
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ble DURCH eingerichtet, der außerdem Platz für 101 einfach genaue 
Integers enthält. Wie wir jetzt wissen, werden dazu 202 Byte im 
Arbeitsspeicher des Computers reserviert. Bei der Arbeit mit 
ALLOT muß man die Anzahl der Bytes angeben, die reserviert werden 
sollen, während ARRAY direkt mit Array-Elementen arbeitet. Im 
Falle von 6-19 werden diese Elemente fortlaufend von 0 bis 100 
durchnumeriert. Das Wort ARRAY hat folgende Stack-Relation: 


n 


_> 


( 6 - 20 ) 


Ein mit ARRAY vereinbarter Array kann insgesamt n + 1 Elemente 

aufnehmen, die von 0 bis n durchnumeriert sind. Der Platzbedarf 
für diesen Array beträgt 2(n+l) Byte. Um die Adresse eines Array- 
Elements auf den Stack zu bekommen, geben wir lediglich die Eie 
mentnummer und den Namen des Arrays in dieser Reihenfolge ein. 
Durch Ausführung von 


3 DURCH 


( 6-21 ) 


erhalten wir so z.B. die Adresse des ersten Bytes des vierten 

Elements von DURCH auf dem Stack. Rufen Sie sich noch einmal ins 
Gedächtnis, daß das erste Element die Nummer 0 besitzt. Deshalb 

erreichen wir mit (6-21) auch das vierte Array-Element . 

Als Beispiel für den Einsatz von ARRAY haben wir das Programm aus 
der Abbildung 6-3 noch einmal neu geschrieben. Sie sehen die ge 

änderte Fassung in Abbildung 6-4. Im wesentlichen handelt es sich 
dabei um das gleiche Programm wie in Abbildung 6-3, außer daß wir 
den Array DURCH mit dem FORTH-Befehl ARRAY vereinbaren. Außerdem 
sind jetzt die Adreßberechnungen einfacher, da wir den Schleifen 
index nicht mehr mit 2 multiplizieren müssen. Werfen Sie noch 
einen Blick auf Zeile 2: Dort besorgen wir uns mittels 0 DURCH 

die Adresse des ersten Elements des Arrays. 

Wie Sie sehen können, benutzt man zur Adressierung von Arrays, 
die mit ALLOT eingerichtet wurden, ein anderes Verfahren als für 

solche, die Sie sich mittels ARRAY besorgt haben. Verwechseln Sie 
nicht diese beiden Methoden! Das Verfahren mit ARRAY ist zwei 
felsohne einfacher, leider aber nicht Bestandteil von FORTH-79. 
Sollte Ihr System diese Möglichkeit zur Verfügung stellen, so 
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kann es sein, daß Sie zuvor die betreffenden Blöcke in den Spei 
eher laden müssen, ehe Sie auf diese Möglichkeit zurückgreifer. 
können . 


0 ( Ein weiteres Beispiel fuer Arrays ) 

1 100 ARRAY DURCH 

2 : BEWERTUNG 0 DURCH § 1+1 

3 DO CR I DURCH § 59 - 0> IF 

4 STUDENT NO . " I BESTEHT " 

5 ELSE STUDENT NO. " I FAELLT DURCH " 

6 THEN 

7 LOOP ; 

8 

9 (Dateneingabe in einen Array) 

10 : INPDRCH CR Bitte Anzahl der Teilnehmer eingeben: " 

1 1 #IN DUP 0 DURCH 1 1 + 1 CR DO 

12 . " Durchschnittswert des Studenten Nr. " 1 . #IN 

13 CR I DURCH ! 

14 LOOP CR ; 

1 5 


ABBILDUNG 6-4: Beispiel für den Einsatz von ARRAY 


6.3.1 Arrays und doppelt genaue Integers 


Sie können auch doppelt genaue Integers in Arrays speichern. Auch 
dazu gibt es wieder zwei Verfahren, wobei wir uns zuerst dem mit 
tels ALLOT zuwenden wollen. Wenn wir mit diesem FORTH-Wort den 
Speicherplatz einer Arrayvariablen erweiterten, dann haben wir 
bisher immer für jede zu speichernde einfach genaue Integer zwei 
Byte reserviert . Da doppelt genaue Integer einen doppelt so gros- 
en Speicherplatzbedarf haben, müssen wir entsprechend 4 Byte für 
jeden zu speichernden Wert vereinbaren: 

2VARIABLE WORK 40 ALLOT (6-22) 


Wir richten also zuerst eine doppelt genaue Variable mit dem 
Namen WORK ein und erweitern deren Speicherkapazität durch 40 
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ALLOT um weitere 40 Byte. Wenn wir jetzt WORK 4 + eingeben, dann 
r.aben wir danach die Adresse der zweiten doppelt genauen Integer 
in dem Array WORK auf dem Stack. Wenn wir doppelt genaue Arrays 
in einer Schleife verarbeiten und über den Schleifenindex anspre 
chen wollen, dann müssen wir den Schleifenindex mit 4 multipli 
zieren. Dies ist analog zu dem Verfahren in Abbildung 6-3, in dem 
vir den Schleifenindex mit 2 multipliziert haben. Zum Speichern 
_r . d Lesen von doppelt genauen Array-Elementen müssen Sie außerdem 
: ie Wörter 2! und 2 @ verwenden. 

Zs ist nicht einmal notwendig, doppelte Genauigkeit für die Aus 
zangsvariable zu vereinbaren. Wir hätten in (6-22) WORK genau 
sogut mit VARIABLE vereinbaren können. In diesem Fall kann man in 
den ersten beiden Bytes des Arrays eine einfach genaue Integer 
speichern, während die nachfolgenden Bytes jeweils in Vierergrup- 
: en zur Speicherung von doppelt genauen Werten dienen. Allerdings 
-acht dieses Verfahren die Adreßberechnung für die Array-Elemente 
-mständlicher . 

Wenn Ihr FORTH-System über diese Möglichkeit verfügt, dann können 
Sie auch mit dem Befehl DARRAY Arrays mit doppelt genauen Inte- 
zers vereinbaren. Auch dieses Wort ist kein Bestandteil von 
rORTH-79, aber im MMSFORTH zu finden. Es funktioniert im wesent 
liehen genauso wie ARRAY. Seine Stack-Relation lautet: 


d -> 


(6-23) 


Nach Ausführung von 


100 DARRAY WORK 


(6-24) 


naben wir also einen Array mit dem Namen WORK eingerichtet, der 
Platz für 101 doppelt genaue Integers hat, insgesamt also 404 
Byte im Arbeitsspeicher beansprucht. Wenn wir das vierte Element 
dieses Arrays auf den Stack legen wollen, dann geben wir ein 


4 WORK 2@ 


(6-25) 
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6.3.2 Arrays und Gleitkommazahlen 

Gleitkommazahlen sind kein Bestandteil von FORTH-79, können aber 
in MMSFORTH und ähnlichen Systemen benutzt werden. Die hier dar 
gestellten Array-Wörter sind die von MMSFORTH. Sie sind also 
nicht standardisiert. Zur Einrichtung eines Arrays mit einfach 
genauen Gleitkommazahlen dient 2ARRAY, das im wesentlichen genau 
so wie ARRAY funkt ioniert, außer daß eben mit einfach genauen 
Gleitkommazahlen gearbeitet wird. Ähnlich kann man mit 4ARRAY 
Arrays mit doppelt genauen Gleitkommazahlen einrichten. 


6.3.3 Arrays mit Konstanten 


Gelegentlich ist es sehr nützlich, über einen Array zu verfügen, 
der eine Folge von Konstanten enthält. Dies kann in FORTH-79 
leicht erreicht werden, indem man die Wörter CREATE und , ein 
setzt. Man kann diese beiden Wörter zwar getrennt für sich ver 
wenden, davon wird dem Anfänger jedoch abgeraten. Wenn Sie nicht 
genau mit der Arbeitsweise Ihres FORTH-Systems vertraut sind, 
dann sollten Sie sie also nur zusammen einsetzen. Bei Ausführung 
von CREATE wird ein Wörterbucheintrag für den Namen eingerichtet, 
der auf das Schlüsselwort folgt . So sorgt also 


CREATE TAB (6-26) 

dafür, daß für das Wort TAB ein Wörterbucheintrag eingerichtet 
wird. Allerdings wird zu diesem Zeitpunkt kein Speicherplatz für 
Daten vereinbart ! Mit dem FORTH-Kommando , wird die oberste Inte 
ger vom Stack entfernt und dafür im nächsten freien Wörterbuch 
eintrag ein Speicherbereich reserviert. Anschließend wird in die 
sem Speicherbereich die Integer vom Stack abgelegt. Angenommen, 
wir wollen in unserem Konstanten-Array TAB sechs Werte speichern. 
Dies erreichen wir durch folgende Kommandos: 


CREATE TAB 15 , 20 , 35 , 40 , 50 , 60 , 


(6-27) 
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_ 5 Zahlen und Kommas sind jeweils durch Leerzeichen getrennt, 
tarnt sie von FORTH als eigene Wörter erkannt werden. Wenn wir 
ietf das FORTH-Kommando CREATE also den Namen des Arrays folgen 
, ; ; sen und dahinter die entsprechenden Werte durch Komma getrennt 
i.f führen, dann werden diese Werte im Wörterbuch von FORTH an den 
:essenden Stellen abgelegt. Beispiel (6-27) sorgt dafür, daß im 
•irterbuch ein Eintrag für TAB vorgesehen wird. Als nächstes 
:m: die 15 auf den Stack. Das nächste Wort - , - reserviert 2 

direkt hinter dem Wörterbucheintrag für TAB und speichert 
irrt die 15. Entsprechend werden die anderen aufgeführten Kon- 
= tantenwerte gespeichert. 

ie. einer nachfolgenden Ausführung des Wortes TAB findet sich an 
ru-erster Stack-Position die Adresse des ersten Daten-Bytes (in 
L-üer. Fall der Zahl 15) . Nocheinmal: CREATE reserviert keinen 

ireicherplatz für die Daten im Wörterbuch. Ist der Array TAB mit- 
■ i _ = :5-17) erst einmal eingerichtet, dann kann man ihn wie jeden 

mi-rren Array mit einfach genauen Integers behandeln. Man kann 
f : c_ = r Werte in TAB speichern, indem man sich der bereits vorge- 
ilallten Verfahren bedient. Wenn wir einen Array nicht mit Kon- 
itantenwerten initialisieren müssen, dann sollte nicht CREATE 
:-aa_tzt werden, da die Arbeit mit Arrays sonst zu umständlich 
•-ri. In solchen Fällen sollten Sie den normalen Weg gehen und 
2_t ALLOT arbeiten. 


6 . 4 Mehrdimensionale Arrays 


anrhe Anwendungen erfordern die Verarbeitung mehrerer Datenli 
sten (Arrays), die miteinander verknüpft sind. So könnte in dem 
einen Array z.B. die Prüfungsleistung von 'Studenten enthalten 
sein, während der andere Array die Matrikel nummern enthält. Es 
-äre nun wünschenswert, eine Verbindung zwischen der Leistung des 
Studenten und seiner Mat rike Inummer herzustellen. Für dieses Pro- 
ilem bieten mehrdimensionale Arrays eine elegante Lösung. Sehen 
-ir uns ein Beispiel an. Wir haben für die Teilnehmer an einem 
Kurs eine Matrikelnummer sowie die Punktzahl in zwei Tests. Wir 
•'-ollen den Durchschnitt des Studenten berechnen und neben seiner 
Matrikelnummer ausgeben. Dies macht das FORTH-Programm in Abbil 
düng 6-5. Die ersten drei Zeilen dienen zur Vereinbarung von drei 
— oterschiedlichen Arrays, die jedoch allesamt gleich lang sind. 
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0 

1 

2 

3 

4 

5 

6 
7 


( Beispiel fuer parallelverarbeitung mehrerer Arrays 


VARIABLE IDNUMB 200 ALLOT 
VARIABLE GRADEI 200 ALLOT 

VARIABLE GRADE 2 200 ALLOT 

: CLASS IDNUMB @ 1 + 

CR 2 I * GRADEI +02 
. ' ' STUDENT NO. "12 

. " HAT DEN DURCHSCHNITT 


1 DO 

I * GRADE 2 + 
* IDNUMB + 

" 2 / 


+ 


8 loop ; 

9 (Beispiel fuer Werteingabe in Arrays) 

10 : GRADEIN CR . " BITTE TEILNEHMERZAHL EINGEBEN " 

11 #IN DUP IDNUMB ! 1+1 CR DO 

12 CR . " MATRIKELNUMMER UND BEWERTUNG EINGEBEN " 

13 # IN # IN # IN 

14 I 2 * GRADE 2 + ! I 2 * GRADEI + ! I 2 * IDNUMB + 

15 LOOP ; 


ABBILDUNG 6-5: Ein Beispiel für mehrfache Arrays 


Im Array IDNUMB speichern wir die Matrikelnummern des Studenten. 
GRADEI enthält die Punktzahl im ersten Test, während GRADE2 die 
Ergebnisse des zweiten Tests beinhaltet. Zusätzlich merken wir 
uns in Position 0 von IDNUMB die Anzahl der Teilnehmer im Kurs. 
Die entsprechende Position der beiden anderen Arrays bleibt in 
dessen ungenutzt. 

Wir gehen jetzt davon aus, daß diese drei Arrays mit Daten ver 
sorgt sind und wenden uns der Arbeitsweise des FORTH-Wortes CLASS 
zu. (Vgl. Abb . 6-5) . Die erste Zeile des Programms erhöht den 

"Teilnehmerzähler " um 1; dazu besorgen wir uns die Anfangsadresse 
des Arrays, indem wir seinen Namen rufen (IDNUMB) und uns an 
schließend mittels 0 das nullte Datenelement dieses Arrays auf 
den Stack legen lassen. Auf diesen Wert (die Anzahl der Teilneh 
mer) addieren wir als nächstes 1 mit der Kommandofolge 1 +. Die 

Anzahl der Teilnehmer soll nämlich als Testwert einer DO-Schleife 
dienen, wobei wir bereits wissen, daß der Testwert in einer sol 
chen DO-Schleife um 1 höher sein muß als die Anzahl der ge 
wünschten Durchläufe (vorausgesetzt, der Index beginnt mit 1, wie 
es hier der Fall ist) . Das letzte Wort auf Zeile 4 leitet die 
Schleife ein, welche jetzt genausooft durchlaufen wird, wie es 
Teilnehmer im Kurs gibt. Die Zeile 5 der Abbildung 6-5 dient 
dazu, für den ersten Studenten die Ergebnisse in den beiden Tests 
zu ermitteln. Dabei gehen wir wie üblich vor: Der Schleifenindex 
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wird mit 2 multipliziert und anschließend diese Zahl auf die 
Startadresse des Arrays addiert, den wir bearbeiten wollen. Dies 
machen wir zweimal, einmal für GRADEI und einmaL für GRADE2 . 
Danach haben wir die Punktzahl in den beiden Tests auf dem Stack 
und können sie mittels + addieren, um für die Durchschnittsbe 
rechnung alles vorzubereiten. Zeile 6 dient dazu, neben einer 
Textmeldung die Matrikelnummer des Studenten auszugeben; die 
Matrikelnummer erreichen wir wiederum, indem wir den Laufindex 
mit 2 multiplizieren, diese Zahl auf die Startadresse des Arrays 
addieren und das Datenelement an der so berechneten Position 
mittels § holen. In Zeile 7 wird nun der Durchschnitt berechnet 
und ausgegeben. Nach Abarbeitung von Zeile 6 ist die Summe der 
Punkte in den beiden Tests oberster Stack-Eintrag. Diese Zahl 
teilen wir durch 2 und geben den Quotienten aus. Damit ist die 
Schleife beendet, und das LOOP auf Zeile 8 sorgt für einen Wie 
dereintritt, so lange die Testbedingung noch nicht erfüllt ist. 

In den Zeilen 10 bis 15 der Abbildung 6-5 sehen Sie ein Programm 
zur Eingabe der Daten. Dies folgt weitestgehend dem Verfahren, 
das wir aus Abbildung 6-3 schon kennen, außer daß nun Daten in 
drei Arrays eingegeben werden müssen. Die Daten werden in folgen 
der Reihenfolge auf den Stack gelegt: Mat rike lnummer, Testl und 

Test2 . Wir lesen sie also in umgekehrter Reihenfolge vom Stack. 

Dieses Programm kann auch mit doppelt genauen Integers geschrie 
ben werden; der Algorithmus bleibt der gleiche. Sie müssen nur 
die passenden Wörter für die Manipulation von doppelt genauen 
Integers einsetzen. 


6.4.1 Zweidimensionale Arrays 


Im letzten Beispiel haben wir drei Arrays im Programm verwendet, 
die inhaltlich aufeinander bezogen sind. Jeder dieser Arrays war 
zur Aufnahme einer anderen Art von Daten bestimmt. In solchen 
Fällen, in denen mehrere aufeinander bezogene Datensätze gegeben 
sind, ist es oft bequemer, mit zweidimensionalen Arrays zu arbei 
ten. Alle bisher betrachteten Arrays waren eindimensional ■ Einen 
eindimensionalen Array kann man sich als eine (beliebig lange) 
Liste von Daten vorstellen, oder anders ausgedrückt, als eine 
Daten zeile mit (beliebig vielen) Datenspalten. Im Unterschied 
dazu kann ein zweidimensionaler Array nicht nur beliebig viele 
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Datenspalten, sondern auch eine größere Anzahl Datenzeilen auf- 
weisen. Zweidimensionale Arrays haben daher die logische Struktur 
einer Wertetabelle; wer sich noch nichts unter einem zweidimen 
sionalen Array vorstellen kann, der denke an die bekannten Ent 
fernungstabellen, in denen die Entfernung zwischen Städten in km 
abzulesen ist. Hierbei handelt es sich um ein Beispiel für einen 
zweidimensionalen Array. 

Natürlich können wir die Daten für das Beispielprogramm in Abbil 
düng 2-5 auch in einem zweidimensionalen Array speichern. Jede 
Zeile dieses Arrays entspricht dann einem Studenten, wobei in 
Spalte 0 die Matrikelnummer, in Spalte 1 das Ergebnis des ersten, 
in Spalte 2 das Ergebnis des zweiten Tests zu finden ist (Beach 
ten Sie, daß wir die Datenelemente mit 0 beginnend durchnumerie 
ren ! ) 

0 ( Beispiel fuer einen zweidimensionalen Array ) 

1 2 100 2 ARRAY GRADE 

2 : CLASSAV 0 0 GRADE @1+1 DO 

3 CR I 1 GRADE @12 GRADE § + 

4 . " STUDENT NO. " 10 GRADE § . 

5 . " HAT DEN DURCHSCHNITT " 2 / 

6 LOOP ; 

7 

8 (Werteversorgung des Arrays ueber Tastatur) 

9 : GRADEIN CR . " BITTE ANZAHL DER TEILNEHMER EINGEBEN " 

1 0 fi\W TJÜP WB\\ \+ \ ^ 

11 CR ." MATRIKELNUMMER UND BEWERTUNGEN EINGEBEN " 

12 #IN #IN #IN 

13 12 GRADE ! I 1 GRADE ! I 0 GRADE ! 

14 LOOP ; 

1 5 

ABBILDUNG 6-6: Ein Beispiel für zweidimensionale Arrays 


Der Befehl zur Definition eines zweidimensionalen Arrays ist kein 
Bestandteil von FORTH-79, findet sich jedoch in MMS-FORTH. Er 
lautet 2ARRAY und wird folgendermaßen angewendet: 


n x n 2 2 ARRAY GRADE 


( 6 - 28 ) 


230 



6 Konstanten, Variable und Arrays 


Das Wort 2ARRAY erwartet zwei einfach genaue Integers auf dem 
Stack, die es davon entfernt. Es vereinbart daraufhin einen zwei 
dimensionalen Array - in diesem Fall mit dem Namen GRADES -, der 
n A + 1 Zeilen und .p +1 Spalten hat. Die erste Zeile und Spalte 
tragen jeweils die Nummer 0. Die Stack-Relation 2ARRAY : 


n„ n > (6-2 9) 

i 2 

Die Werte für n A und n 2 müssen sich dabei zwischen 1 und 254 be 
wegen . 

Wenden wir uns jetzt der Frage zu, wie man Daten in einem zweidi 
mensionalem Array speichern bzw. aus ihm auslesen kann. Um bei 
spielsweise die Adresse des Datenelements auf den Stack zu bekom 
men, das sich in Zeile n A und Spalte n 2 des Arrays GRADE befin 
det, müssen wir eingeben: 


n A n 2 GRADE (6-30) 

Das bedeutet, daß wir die einfach genaue Integer, die sich in 

Zeile 4, Spalte 3 des Arrays GRADE befindet, mit folgender Ein 

gäbe erreichen: 

4 3 GRADE 

Als Beispiel für den Einsatz zweidimensionaler Arrays wollen wir 
das Programm aus Abbildung 6-5 neu schreiben. Sie sehen die ver 
änderte Version in der Abbildung 6-6. 

Wir brauchen jetzt nur mehr eine Zeile zur Einrichtung des nöti 
gen Arrays, der diesmal jedoch zwei Dimensionen hat; das besorgt 

die Zeile 1 des Beispielprogramms. Nach ihrer Ausführung ist im 
FORTH-System Speicherplatz für einen zweidimensionalen Array mit 
dem Namen GRADE reserviert, der 101 Zeilen mit jeweils 3 Spalten 

besitzt. Wir gehen davon aus, daß die Gesamtzahl der Teilnehmer 
am Kurs im Element (0,0) des Arrays gespeichert ist. Sie darf 100 
nicht überschreiten, da sonst die Arraygrenzen gesprengt werden. 
Übrigens bezieht man sich auf Elemente eines Arrays durch Angaben 
in der Form (Zeile, Spalte) . In Zeile 2 beginnt die eigentliche 
Definition des neuen Wortes CLASSAV; als erstes werden die Para 
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meter für eine DO-Schleife eingerichtet, wozu wir uns die Anzahl 
der Teilnehmer besorgen und um 1 erhöhen. Das Verfahren ent 
spricht also genau dem von Abbildung 6-5, wir müssen jetzt jedoch 
zwei Werte auf den Stack legen, um an das erste Datenelement des 
Arrays GRADE zu gelangen. In Zeile 3 holen wir die Datenelemente 
aus GRADE, die in der dem Schleifenindex entsprechenden Zeile und 
den Spalten 1 und 2 zu finden sind. Die Matrikelnummer des Teil 
nehmers finden wir in Spalte 0. Wir besorgen sie uns in Zeile 4, 
d.h., wir holen das Element aus dem Array, das in der dem Schlei 
fenindex entsprechenden Zeile und Spalte 0 zu finden ist. Der 
Rest des Programms entspricht genau dem aus Abbildung 6-5. 

Die Zeilen 8 bis 13 der Abbildung 6-6 zeigen die Definition des 
FORTH-Wortes GRADEIN, mit dem der Benutzer Daten in den Array 
GRADE eingeben kann. Auch dieses Programm folgt in seinen Verar 
beitungsschritten dem aus Abbildung 6-5, außer daß jetzt die nö 
tigen Verfahren zur Speicherung in zweidimensionalen Arrays ange 
wendet werden. Beachten Sie, daß das Programm aus Abbildung 6-6 
einfacher ist als das in Abbildung 6-5. 


6.4.2 Zweidimensionale Arrays und doppelte Genauigkeit 


Mit dem FORTH-Kommando 2DARRAY kann man einen zweidimensionalen 
Array vereinbaren, in dem doppelt genaue Integers gespeichert 
werden. Das Wort ist zwar kein Bestandteil von FORTH-7 9, wurde 
jedoch in MMSFORTH auf genommen. Die Details des Umgangs mit 
2DARRAY entsprechen denen für ARRAY. Die Stack-Relation lautet: 


n 'i?" ^ 


(6-31) 


Die Integers, mit denen der Umfang des Arrays festgelegt wird, 
müssen einfach genau sein, sich also zwischen 0 und 65535 bewe 
gen. Zum Speichern und Wiederauf finden von Daten in solchen Ar 
rays müssen die Kommandos 2 § und 2! verwendet werden. 
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6.4.3 Zweidimensionale Arrays und Gleitkomnazahlen 

y.MSFORTH und andere FORTH-Systeine stellen Wörter zur Verfügung, 
mit denen zweidimensionale Arrays von Gleitkommazahlen definiert 
•erden können. Da sie nicht zum FORTH-7 9-Standard gehören, können 
sich diese Wörter von System zu System unterscheiden. Für einfach 
genaue Gleitkommazahlen definiert man einen zweidimensionalen 
Array mit dem Wort 22ARRAY. Die Handhabung eines solchen Arrays 
entspricht der, die wir von 2ARRAY schon kennen, außer daß jetzt 
<eine einfach genauen Integers, sondern Gleitkommazahlen im Array 
gespeichert werden. Für den Zugriff (Lesen und Schreiben) nimmt 
man die Wörter 2 @ und 2!. Die Stack-Relation entspricht der von 

.6-29) . Die Zahlen, die die Abmessungen des Arrays festlegen (n A 
und n 2 ) sind einfach genaue Integers. Auch die Zahlen, mit deren 
Hilfe man auf ein einzelnes Element des Arrays zugreift, müssen 
einfach genaue Integers sein. 

Fernerhin ist es möglich, durch das FORTH-Wort 24ARRAY eine zwei- 
dimesionalen Array für doppelt genaue Gleitkommazahlen zu verein 
raren. Bis auf den Umstand, daß für den Datenzugriff die Wörter 
4§ und 41 verwendet werden müssen, gleicht die Arbeit mit solchen 
Arrays denen mit Gleitkommazahlen von einfacher Genauigkeit . 


6 . 5 Übungsaufgaben 


In einigen der folgenden Übungsaufgaben sollen Sie neue FORTH- 
Wörter definieren bzw. Programme schreiben. Überprüfen Sie diese, 
indem Sie sie auf Ihrem Computer laufen lassen. Versuchen Sie, 
möglichst kurze Programme zu schreiben, indem Sie Teilaufgaben 
durch Modularisierung an Unterwörter vergeben. 


6-1 Erörtern Sie den Unterschied zwischen Konstanten und Varia 
bien . 

6-2 Schreiben Sie ein Programm, das den Umfang und den Flächen 
inhalt eines Kreises berechnet und dabei die Kreiszahl n als 
Konstante verwendet. Das Programm erwartet den Radius des 
Kreises auf dem Stack. Zur Berechnung des Kreisumfangs dient 
die Formel 2Tr, während die Formel für die Berechnung der 
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2 

Kreisfläche r t lautet . Legen Sie in diesem Programm für 
den Wert 3,142 zugrunde. Falls nötig, sollten Sie Ihre Werte 
skalieren . 

6-3 Erörtern Sie den Vorteil, der sich durch den Einsatz von 
Konstanten in FORTH-Wörtern ergibt. 

6-4 Wiederholen Sie Aufgabe 6-2, wobei Sie diesmal für n den 
Wert 3,1415927 ansetzen. 

6-5 Wiederholen Sie Auf gäbe 4-8 mit Variablen. 

6-6 Wiederholen Sie Auf gäbe 4-10 mit Variablen. 

6-7 WiederholenSie Aufgabe 4-16 mit Variablen. Die Punktzahlen 

sollten nicht auf den Stack gelegt, sondern direkt vom 
Benutzer im Programm eingegeben werden. 

6-8 Schreiben Sie ein FORTH-Wort, das unter Verwendung von Va 
riablen die Fakultät berechnet . 

6-9 WiederholenSie Aufgabe 6-8 mit doppelt genauen Integers . 

6-10 WiederholenSie Aufgabe 6-2 mit einer Gleitkommakonstante. 

6-11 WiederholenSie Aufgabe 6-10, wobei Sie sowohl Gleitkommava 

riable als auch Gleitkommakonstanten einsetzen sollen. 

6-12 Wiederholen Sie Aufgabe 6-11 mit doppelt genauen Variablen 
und Konstanten. Legen Sie den Wert von zugrunde, der in 
Aufgabe 6-4 angegeben ist. 

6-13 Wiederholen Sie Aufgabe 6-8 mit Gleitkommavariablen. 

6-14 Wiederholen Sie Aufgabe 6-13 mit doppelt genauen Gleitkomma 
variablen . 

6-15 Was ist ein Array? 

6-16 Wiederholen Sie Aufgabe 5-10, berechnen Sie diesmal jedoch 
die Provision einer größeren Anzahl von Verkäufern. Die 
Verkäufer werden über ihre Personalnummer identifiziert. Ihr 
Programm sollte Arrays verwenden. Gehen Sie davon aus, daß 
die Firma nicht mehr als 250 Verkäufer hat. In Ihrem Pro- 
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gramm sollte auch die Möglichkeit vorgesehen sein, auf ein 
fache Art Daten in den Array einzugeben bzw. von dort zu 
lesen . 

'7 Wiederholen Sie Aufgabe 6-16 mit doppelt genauen Integers . 

'8 Schreiben Sie ein Programm, das pythagoreische Zahlentripel 
berechnet. Speichern Sie die Daten in einem Array. Das 
Programm sollte die im Array gespeicherten Werte ausgeben 
können . 


'9 


20 


21 


22 


23 


Wiederholen 

Wiederholen 
zahlen . 

Wiederholen 
zahlen . 

Wiederholen 
zahlen . 

Wiederholen 
zahlen . 


Sie Aufgabe 6-18 mit doppelt genauen Integers. 

Sie Aufgabe 6-16 mit einfach genauen Gleitkomma 

Sie Aufgabe 6-16 mit doppelt genauen Gleitkomma 

Sie Aufgabe 6-18 mit einfach genauen Gleitkomma 

Sie Aufgabe 6-18 mit doppelt genauen Gleitkomma 
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7 Zeichen und Zeichenfolgen 


_ * den FORTH-Wörtern, die wir bisher selbst definiert haben, 
ir.-ten wir nur Zahlen manipulieren. Jetzt wollen wir sehen, wie 
auch mit Buchstaben und Buchstabenfolgen (Zeichenketten oder 
iinngs) in Programmen arbeiten kann. Dabei beschränkt sich unse- 
e Darstellung nicht nur auf die Buchstaben des Alphabets, son- 
isrr. auch auf Ziffernzeichen (0-9) und Interpunktionszeichen und 
a iere Sonderzeichen . Für diese Art von Zeichen gibt es einen 
' 1 : nausdruck : Man bezeichnet die Buchstaben, Ziffern und Sonder 

liehen mit dem umfassenden Ausdruck alphanumerische Daten . Ein 
zelne Zeichen bilden zusammengeschrieben sog. Zeichenketten oder 
iinngs . Wir werden in diesem Kapitel auch FORTH-Wörter kennen- 
-ernen, mit denen man Strings manipulieren kann. 

1 _r Speicherung eines alphanumerischen Zeichens benötigt man bei 
:er. meisten FORTH-Systemen nur ein einziges Byte. Deshalb bespre- 
:nsn wir in diesem Kapitel auch FORTH-Wörter, mit denen man ein 
zelne Bytes manipulieren kann. Die Operationen, die wir dabei 
•erstellen, können sowohl auf Zahlen als auch auf Zeichen ange- 
. endet werden. In einem 8-Bit-Byte kann man nämlich auch vorzei- 
crenlose Integers im Bereich von 0 bis 255 speichern. 


7 . 1 Zeichen - Bytemanipulationen 

Dieser Abschnitt legt dar, wie man in FORTH alphanumerische Daten 
eingeben, ausgeben und verarbeiten kann. Wir werden auch sehen, 
-ie man Text speichert und manipuliert. Da das FORTH-System Zei- 
rnen byteweise ablegt, werden wir uns auch mit FORTH-Wörtern be 
schäftigen, die uns die Bearbeitung einzelner Bytes erlauben. 

C! und C§ - Das FORTH-Wort C! entfernt zwei einfach genaue Zahlen 
vom Stack; der erste Stackeintrag wird als Adresse behandelt, 
-ährend der zweite Stackeintrag eine vorzeichenlose Integer sein 
ruß. Die acht niedrigstwertigen Bit dieser Integer werden dann an 
der angegebenen Speicheradresse abgelegt . Wir haben folgende 
Stack-Relation : 


n 


a — > 


(7-1 ) 
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C! funktioniert also fast genauso wie !, außer daß nur 8 Bits, 
(also ein Byte) gespeichert werden. Die Stack-Operationen sind 
jedoch bei beiden Wörtern gleich (eine einfach genaue Integer be 
legt auf dem Stack zwei Byte.) Mit dem Stack-Symbol "a" bezeich 
nen wir bekanntermaßen Adressen. Eine Adresse ist aber nichts 
anderes als eine vorzeichenlose einfach genaue Integer. 

Zum Wiederauf finden gespeicherter Zeichen dient das FORTH-Komman- 
do C . Es entfernt die oberste Zahl vom Stack und behandelt sie 
als Adresse. Das Byte, das an dieser Adresse gespeichert ist, 
wird geholt und als einfach genaue Integer auf den Stack gelegt . 
Da eine einfach genaue Integer doppelt so lang wie ein Byte ist, 
werden die acht höchstwertigen Bit der auf den Stack gelegten 
Zahl auf Null gesetzt. Die acht niedrigstwertigen Bit entsprechen 
jedoch der geholten Originalzahl. Die Stack-Relation lautet: 


a — > 


n 


(7-2) 


Die beiden Wörter C! und C0 behandeln den Stack somit so, als ob 
einfach genaue Integers gespeichert bzw. geholt werden sollen. 
Der gespeicherte Wert belegt im Wörterbuch aber tatsächlich nur 
ein Byte. 

CMOVE und <CMOVE - Bei der Arbeit mit Zeichen, die sich im Compu 
terspeicher befinden, taucht oft die Notwendigkeit auf, ganze 
Speicherblöcke zu verschieben. Dazu müssen Sie sich nur einmal 
vorstellen, daß die im Arbeitsspeicher abgelegten Zeichen einen 
Absatz eines längeren Textes darstellen, den wir in einem selbst 
geschriebenen Textprogramm verarbeiten wollen. In diesen Text 
wollen Sie nun - irgendwo in der Mitte - neues Textmaterial ein- 
fügen . Dazu wäre es bequem, mit einem einzigen Kommando die ganze 
Textzeile an eine andere Stelle des Arbeitsspeichers verschieben 
zu können, um Platz für das neue Textmaterial zu erhalten. Die 
zwei oben genannten FORTH-Wörter unterstützten uns bei dieser 
Aufgabe. Das erste - CMOVE - könnte zum Beispiel folgendermaßen 
eingesetzt werden: 


34500 38000 100 CMOVE 


(7-3) 
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Dieses Beispiel bewirkt, daß ein 100 Byte langer Block, der bei 
der Adresse 34500 beginnt, an eine neue Stelle im Arbeitsspeicher 
verschoben wird, und zwar beginnend bei Adresse 38000. Dadurch 
wird die Ausgangsinformation dupliziert, d.h., die Bytes, die 
zwischen Adresse 34500 und 34599 im Arbeitsspeicher stehen, wie 
derholen sich jetzt an den Adressen 38000 bis 38099. Bei dieser 
Art der Blockverschiebung bleiben die Ausgangsadressen also un 
verändert. Sie stehen jetzt jedoch zur Speicherung neuer Informa 
tionen zur Verfügung. Die Informationsverschiebung geschieht 
oyteweise "von unten nach oben", d.h., zuerst wird das Byte an 
Adresse 34500 an die Adresse 38000 bewegt, dann verschiebt FORTH 
das Byte an Adresse 34501 nach 38001 usw. Die Reihenfolge, in der 
die einzelnen Bytes bewegt werden, scheint für den Benutzer un 
interessant zu sein. Im vorhergehenden Beispiel ist sie es auch. 
Es gibt jedoch bestimmte Fälle, in denen der Benutzer die Details 
des Verschiebeprozesses beachten muß. Wenn wir z.B. folgendes 
schreiben : 


34500 34550 100 MOVE 


(7-4) 


dann werden zwar wiederum 100 Byte verschoben, die Verschiebe 
distanz beträgt diesmal jedoch nur 50 Byte. Bei der ersten Byte 
bewegung überschreiben wir die Daten an Adresse 34550 unwie 
derbringlich . Die 50 Byte, die ab dieser Adresse beginnen, werden 
also de facto gar nicht mit verschoben. Eine Lösung für dieses 
Problem könnte darin bestehen, den 100-Byte-Block weiter als 100 
Speicherstellen zu verschieben und dann die richtig kopierten 
Daten mit einem weiteren CMOVE an die gewünschte Stelle zu brin 
gen. Glücklicherweise gibt es jedoch ein anderes FORTH-Wort, das 
dieses Problem löst . Dieses lautet CCMOVE und arbeitet im wesent 
liehen wie CMOVE, außer daß bei dem Verschieben mit den höheren 
Adressen begonnen wird. Deshalb bewirkt 


34500 34550 100 CCMOVE 


(7-5) 


das Folgende: Erst wird der Inhalt der Adresse 34599 an der Spei 

cheradresse 34649 wiederholt. Dann wird der Inhalt von Adresse 
34598 verschoben, und zwar an Adresse 34648 usw. Somit werden die 
Daten an der Ausgangsposition der Verschiebeoperation nicht über 
schrieben, ehe sie nicht an die gewünschte Zielposition dupli- 
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ziert wurden. CMOVE und <CMOVE führen also dieselbe Funktion aus, 
gehen dabei jedoch unterschiedlich vor. Beide Wörter können na 
türlich auch dazu benutzt werden, Speicherblöcke von höheren in 
niedrigere Speicheradressen zu verschieben. Beachten Sie, daß 
CCMOVE noch kein Bestandteil von FORTH-79 ist. In MMSFORTH und 
anderen FORTH-Systemen ist es jedoch implementiert. Beide Wörter 
besitzen die Stack-Relation: 


a ! a 2 n “> 


(7-6) 


Ein n Byte langer Block, der an Adresse a A beginnt, wird zu der 
neuen Startadresse va^schoben. 

HOVE - Auch dieses Wort dient zum Verschieben von Speicherblöcken 
im Computerspeicher und ähnelt CMOVE, außer daß beim Verschiebe 
Vorgang jeweils zwei Byte auf einmal kopiert werden. Wenn wir 
eingeben : 

a A a 2 n MOVE 

dann werden 2n Byte verschoben, beginnend bei Adresse a A mit dem 
Ziel a 2 _ MOVE ist Bestandteil von FORTH-79. 

KEY - Mit dem FORTH-Kommando KEY können Sie alphanumerische Daten 
von der Tastatur eingeben. Bei Ausführung von KEY wird der ASCII- 
Code (vgl. Abschnitt 3-2) des nächsten von der Tastatur eingege 
benen Zeichens als vorzeichenlose einfach genaue Integer auf den 
Stack gelegt. Beachten Sie, daß ASCII-Codes stets kleiner oder 
gleich 255 sind, so daß man sie auch als vorzeichenlose Integers 
in einem einzigen Byte darstellen kann. Das bedeutet, daß man die 
ASCII-Darstellung eines Zeichens mit den Speicherkommandos C! 
oder C@ manipulieren kann. Wenn wir also eingeben: 

KEY Z (RETURN) (7-7) 


dann erhalten wir als obersten Stack-Eintrag die Zahl 90 als 
vorzeichenlose einfach genaue Integer, weil dies der ASCII-Code 
für den Buchstaben Z ist. Die Stack-Relation für KEY lautet: 
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> 


u 


(7-8) 


Wie Sie wissen, dient in Stack-Relationen der Buchstabe "u" zur 
Darstellung von vorzeichenlosen einfach genauen Integers . Bei 
Ausführung von KEY wird allerdings das nächste Zeichen von der 
Tastatur nicht auf dem Bildschirm ausgegeben (geechot) . Das be 
deutet, daß bei Ausführung von (7-7) der Benutzer auf seinem 

Bildschirm nichts zu sehen bekommt. 

EMIT - Das FORTH-Kommando EMIT dient zur Ausgabe von Zeichen 

aufgrund ihres ASCII-Codes. Dazu entfernt EMIT eine vorzeichenlo 
se einfach genaue Integer vom Stack und gibt das Zeichen aus, das 
gemäß der ASCII-Code-Tabelle dieser Zahl entspricht. Beachten 
Sie, daß der Stackwert zwischen 0 und 127 liegen muß. Durch Aus 
führung von 


90 EMIT (RETURN) 


(7-9) 


erhalten wir so ein großes Z auf dem Bildschirm. EMIT hat folgen 
de Stack-Relation: 


u 


— > 


(7-10) 


Wir wollen unsere neu gelernten Wörter gleich in einem Beispiel 
anwenden. In Abbildung 7-1 sehen Sie ein kleines Programm, mit 
dem Textmaterial in einen Array eingegeben werden kann. In diesen 
Array können Sie etwa einen kurzen Brief eingeben und später 

wieder ausdrucken oder den Text sogar mit einem - selbstgeschrie 
benen - Textprogramm bearbeiten. Zur Einrichtung von Byte-Arrays 

müssen wir die Verfahren aus dem letzten Kapitel anwenden. 

Jetzt zu den Details des Programms in Abbildung 7—1. In Zeile 2 

besorgen wir uns Speicherplatz für 1024 Byte, indem wir zuerst 

eine Variable TEXT vereinbaren und deren Speicherumfang dann mit 
tels ALLOT ausdehnen. Wir können in diesem Array jetzt 1024 Zei 
chen speichern. Die ersten beiden Bytes, die TEXT ursprünglich 
durch VARIABLE zugewiesen wurden, benutzen wir dazu, die Anzahl 
der tatsächlich eingegebenen Zeichen in dem Array zu speichern. 


243 



7 Zeichen und Zeichenfolgen 


0 

( Einfache Ein- und 

Ausgabe 

1 

VARIABLE TEXT 102 4 ALLOT 

2 

(Zeicheneingabe) 


3 

: SPEICHERE CR 1 

024 1 

4 

TEXT I 2+ 

5 

35-0 

= 

6 

IF LEAVE 

7 

LOOP CR 

t 

8 



9 

(Gespeicherte Daten 

ausgebe 

10 

: AUSGABE CR TEXT § 


1 1 

TEXT I 1 

+ + 1 

1 2 

EMIT 


13 

LOOP CR 

t 

14 



15 




von Zeichen ) 


DO KEY DUP EMIT DUP 

+ C ! 

I 1 - TEXT ! THEN 


n) 

1 DO 
0 0 


ABBILDUNG 7-1: Einlesen von Zeichendaten in Arrays 


Das eigentliche "Speicherwort" beginnt in Zeile 3 und trägt den 
Namen SPEICHERE. Im wesentlichen besteht dieses Wort aus einer 
Schleife, die 1024mal wiederholt wird. Nach Eintritt in die 
Schleife wird das Wort KEY gerufen, wodurch das Programm anhält 
und wartet, bis der Benutzer eine Taste gedrückt hat. KEY wandelt 
dann diesen Tastendruck in den entsprechenden ASCII-Code um, den 
es auf den Stack legt. Wir duplizieren die Zahl und geben mittels 
EMIT das entsprechende Zeichen wieder aus, so daß der Benutzer 
auch sieht, was er eingegeben hat. Wieder duplizieren wir die 
Benutzereingabe. Dies ist der letzte Befehl von Zeile 3. In Zeile 
4 sorgen wir dafür, daß das eingegebene Zeichen an der richtigen 

Stelle im Array TEXT abgelegt wird. Dazu besorgen wir uns die 
Startadresse von TEXT sowie den Laufindex der Schleife. Auf die 
sen Wert addieren wir 2 (da ja die ersten beiden Bytes von TEXT 

zur Speicherung der Zeichenzahl dienen) , und nach Addition mit 
tels + erhalten wir die richtige Adresse. An dieser speichern wir 
sodann mit C! die Benutzereingabe. Dieser Prozeß wiederholt sich 
bei jedem Schleifendurchgang, bis TEXT die gewünschten Daten 
enthält. Da es aber sein kann, daß der Benutzer nicht 1024 Zei 
chen eingeben, sondern vorzeitig aufhören will, überprüfen wir 
noch auf ein spezielles Endezeichen in Zeile 5. Dazu vereinbaren 

wir, daß die Eingabe in den Array TEXT beendet wird, sobald der 

Benutzer "#" eingibt; dieses Zeichen hat den ASCII-Code 35. 
Natürlich müssen Sie nicht unbedingt das # als Endezeichen ver 
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wenden; jedes andere Zeichen ist möglich, allerdings ist zu 
bedenken, daß dieses Zeichen in normalem Textmaterial vermutlich 
nicht vorkommt. Nun zu Zeile 5, in der überprüft wird, ob der 
Benutzer die #-Taste gedrückt hat. Dazu subtrahieren wir 35 vom 
obersten Stack-Eintrag und überprüfen mit 0 = auf Gleichheit mit 
0. Wenn 0 = ein "wahres" Flag hinterläßt, dann ist es Zeit, die 
Schleife zu beenden, wofür LEAVE sorgt. Nach Verlassen der 
Schleife müssen wir jedoch noch die Anzahl der eingegebenen Zei 
chen an den Anfang des Arrays schreiben. Dazu erniedrigen wir den 
Schleifenindex um 1 {I 1 — ) . Diese Zahl wird ganz am Anfang des 
Speicherbereichs für TEXT abgelegt. Jetzt sind wir mit SPEICHERE 
fertig, und der Array TEXT enthält die Zeichen, die der Benutzer 
von der Tastatur eingegeben hat. In den ersten beiden Bytes des 
Arrays steht außerdem noch, wie viele Zeichen er eingegeben hat . 

Die Zeilen 9 bis 13 der Abbildung 7-1 zeigen das Wort AUSGABE, 
mit welchem man den Text im Array TEXT auf dem Bildschirm anzei- 
gen kann. Das Wort besorgt sich zuerst in Zeile 10 die Anzahl der 
auszugebenden Zeichen und legt sie auf den Stack. Dieser Wert 
dient als Testwert für eine DO-Schleife, deren Schleifenkörper in 
Zeile 11 beginnt. Hier wird der ASCII-Code jedes im Array gespei 
cherten Zeichens geholt; EMIT wandelt diesen Code dann in das 
entsprechende Zeichen um und gibt es auf dem Bildschirm aus. 
Dieses Verfahren wiederholt sich bei jedem Eintrag im Array TEXT. 
Wir wollen einmal sehen, ob es uns gelingt, Textmaterial an 
beliebiger Stelle in den Array TEXT einzufügen. Dies ist eine 
Fähigkeit, über die jedes Textverarbeitungsprogramm verfügen muß. 
Das Programm aus der Abbildung 7-2 löst diese Aufgabe. 

Wenden wir uns nun diesem neuen Programm zu, dem wir den Namen 
EINFGN gegeben haben. Wir gehen davon aus, daß der Block aus der 
Abbildung 7-1 geladen ist und bereits Daten in den Array TEXT 
eingegeben wurden. Im Programm der Abbildung 7-2 nehmen wir fer 
nerhin an, daß der einzufügende String höchstens 10 Zeichen lang 
ist . Die Einf ügezeichen werden in einem separaten Array zwi 
schengespeichert , der den Namen EINFBUF trägt und in Zeile 1 der 
Abbildung 7-2 vereinbart wird. Wie schon in den anderen Program 
men dienen die ersten beiden Bytes von EINFBUF dazu, die Anzahl 
der tatsächlich einzufügenden Zeichen zu speichern. Die Zeichen 
selbst stehen dann im Rest des Arrays. Wir können die Zahl der 
Zeichen, die eingefügt werden können, beliebig vergrößern, indem 
wir diesen Zwischenspeicher erweitern. 
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0 

( Einfuegen eines Strings ) 




1 

VARIABLE EINFBUF 10 ALLOT VARIABLE POINT 



2 

: EINFGN CR . " AB WO SOLL 

EINGEFUEGT WERDEN? " 

# IN 

POINT 

3 

CR . " BIS ZU 10 

EINFUEGE ZEICHEN EINGEBEN 

" CR 

4 

101 DO KEY DUP EMIT DUP 



5 

EINFBUF 11+ + 

C! 



6 

EINFBUF I ! 

35 - 0 = 



7 

IF LEAVE THEN 

I 1- EINFBUF ! 



8 

LOOP CR 




9 

TEXT 2 + POINT @ 

+ DUP EINFBUF § 


+ 

10 

TEXT § POINT § 

<MOVE 



1 1 

EINFBUF 2 + TEXT 2 

+ POINT @ + 



1 2 

EINFBUF § CMOVE 




1 3 

EINFBUF § WORDS +! 

7 



14 





1 5 






ABBILDUNG 7-2: Einfügen von 

Textmaterial in den 

Array 

WORDS 


In der Fachsprache der Programmierer werden solche Zwischenspei 
eher auch Puffer genannt. Wir benötigen noch eine zweite Varia 
ble, die wir POINT nennen und in der wir uns die Position merken, 
an der der Text in den Array TEXT eingefügt werden soll; diese 
Variable wird ebenfalls in Zeile 1 vereinbart . 

Das eigentliche Einfügeprogramm mit dem Namen EINFGN fragt als 
erstes den Benutzer nach der Stelle, an der die neuen Zeichen in 
den bereits existierenden Text eingefügt werden sollen. Er soll 
dazu eine einfach genaue Integer eingeben, die wir in der Varia 
bien POINT aufheben. Als nächstes wird - in Zeile 3 - der Benut 
zer aufgef ordert , den einzufügenden Text (maximal 10 Zeichen) 
einzugeben; wie auch bereits bei dem letzten Programm, wird die 
ser Text wieder durch das "#" abgeschlossen. Die Zeilen 4 bis 8 
stellen eine Programmschleife dar, die den Einfügetext einliest 
und im Puffer EINFBUF zwischenspeichert. Wir folgen dabei den 
Verfahrensschritten, die wir bereits aus Abbildung 7-1 kennen. 
Nach Verlassen der Schleife steht der einzufügende Text fest, und 
der eigentliche Einf ügevorgang kann beginnen. Dazu beschaffen wir 
uns zuerst im Array TEXT genügend Platz, indem wir Teile dieses 
Textes im Arbeitsspeicher verschieben. Die erste zu verschiebende 
Adresse ergibt sich aus der Anfangsadresse von TEXT, auf die wir 
2 und den in der Variablen POINT gespeicherten Wert addieren. Die 
Addition der Zwei ist nötig, weil die ersten beiden Bytes des 
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Arrays für die Zeichenzahl im Array reserviert sind. Als nächstes 
berechnen wir die Endadresse des zu verschiebenden Blockes. Dazu 

duplizieren wir die soeben berechnete Anfangsadresse und addieren 
darauf die Anzahl Zeichen, die aus dem Puffer EINFBUF eingefügt 
werden sollen. Diese finden wir natürlich in den ersten beiden 

Bytes von EINFBUF. Bezogen auf das Stack-Diagramm 7-6 haben wir 
jetzt die Werte a A und a 2 auf den Stack gelegt. Es verbleibt nun 

noch, die Gesamtzahl der zu verschiebenden Zeichen zu berechnen. 

Wir erhalten diese Zahl, indem wir von der Anzahl der in TEXT 
gespeicherten Zeichen die Anzahl der Zeichen abziehen, die vor 

der Einfügeposition in POINT stehen. Zeile 10 der Abbildung 7-2 

führt die nötigen Berechnungen aus und sorgt mittels <CMOVE da 
für, daß die Verschiebung stattfindet. 

Jetzt ist im Array TEXT eine Lücke entstanden, die groß genug 
ist, um den Einfügetext aufzunehmen. Beachten Sie, daß diese 
"Lücke" nicht leer ist, sondern nach wie vor die alten Daten ent 
hält, die jedoch dupliziert wurden und so ohne Probleme über 
schrieben werden können. Um nicht versehentlich unsere Verschie 
bedaten zu zerstören, haben wir das Wort <CMOVE verwendet an 

stelle des einfachen CMOVE . 

Wir können jetzt die Daten aus unserem Puffer in die Lücke im 
Array TEXT übertragen. Nach Ausführung der Zeilen 11 und 12, aber 
ehe das Wort CMOVE zur Ausführung gelangt, befinden sich folgende 

Informationen als einfach genaue Integers auf dem Stack: Die 
Adresse des Puffers plus 2 als dritter Stack-Eintrag; dabei han 

delt es sich um die Anfangsadresse des Datenblockes für die nach 
folgende Verschiebeoperation. Die Zieladresse ist der zweite 
Stackeintrag; man erhält sie aus der Anfangsadresse von TEXT, er 
höht um 2, sowie der Zahl, die in POINT gespeichert ist. An 
oberster Stack-Position finden wir schließlich die Anzahl der 
Zeichen, die im Puffer EINFBUF gespeichert sind und die eingefügt 
werden sollen. Damit ist alles für die Einfügeoperation vorberei 
tet, und wir können - entweder mit CMOVE oder mit CCMOVE - den 
Verschiebevorgang aus lösen. Welche der beiden Blockoperationen 
wir wählen, ist in diesem Falle bedeutungslos, da sich die Ver 

schiebedaten nicht irrtümlich selbst überschreiben können. 

Nachdem der Verschiebevorgang abgeschlossen ist, müssen wir noch 

die Zeichenzahl aktualisieren, die wir uns am Anfang von TEXT 

merken. Dies besorgt Zeile 13 des Programms. Die Ausgangszahl - 
also die Anzahl Zeichen vor dem Einfügevorgang - wird um die An 
zahl der Einfügezeichen erhöht; letztere finden wir am Anfang des 
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Puffers EINFBUF . Wir haben in Zeile 13 das Wort +! angewendet und 
so die beiden Vorgänge Addieren und Speichern in möglichst knap 
per Form bewirkt. 

An dieser Stelle ist einige Vorsicht geboten; Sie müssen aufpas 
sen, daß Sie nicht versehentlich zu viele Zeichen einfügen. Der 
Array TEXT kann ja nur insgesamt 1024 Zeichen aufnehmen. Wenn Sie 
nun versuchen, in TEXT neue Zeichen einzufügen, so daß sich eine 
Gesamtzeichenzahl von mehr als 1024 ergibt, dann kann es sein, 
daß Sie damit Teile des FORTH-Wörterbuches überschreiben . Even 
tuell müssen Sie dann Ihr FORTH-System neu starten und verlieren 
dabei alle Ihre Daten. Sie können zwar mit dem Programm von Ab 
bildung 7-1 nicht mehr als 1024 Zeichen in einen Array schreiben. 
Nichts und niemand hindert Sie jedoch daran, durch wiederholte 
Anwendung von EINFGN eine größere Anzahl an Zeichen einzufügen 
und somit die Grenze von 1024 zu überschreiten. Um dies zu ver 
hindern, sollte man das FORTH-Wort EINFGN um eine zusätzliche 
Überprüfung erweitern, in der nachgesehen wird, ob die Sumne der 
einzufügenden Zeichen und der bereits vorhandenen Zeichen den 
Wert 1024 übersteigt. 

TYPE - Mit dem FORTH-Wort TYPE können Zeichenketten (Strings) 
ausgegeben werden, die im Speicher des Computers stehen. Ein 
Beispiel für die Anwendung von TYPE sieht folgendermaßen aus; 

TEXT 2 + 15 TYPE 

Dies führt dazu, daß, beginnend bei der Adresse TEXT plus 2, 15 

Zeichen aus dem Array ausgegeben werden. TYPE besitzt folgende 
Stack-Relation : 

a n — > 


7 . 2 Weitere Wörter für die Zeicheneingabe 


Wir machen Sie jetzt mit einigen weiteren FORTH-Kommandos ver 
traut, die zur Eingabe von Zeichendaten dienen. Sie können sie in 
Ihre eigenen Definitionen mit einschließen. Das FORTH-System 
selbst macht heftigen Gebrauch von diesen Wörtern, da mit ihrer 
Hilfe die Eingabe von Zeichen in das System organisiert wird. 
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EXPECT - Mit Hilfe des FORTH-Wortes EXPECT kann man eine ganze 
Folge von Zeichen (einen String) eingeben. Eine typische Anwen 
düng sieht etwa so aus: 

TEXT 10 EXPECT (7-11) 

Dabei gehen wir davon aus, daß der Array TEXT vor der Ausführung 
von (7-11) vom Benutzer vereinbart worden ist. Wenn wir (7-11) 
eingeben, dann unterbricht das System seine Arbeit und wartet 
darauf, daß der Benutzer Zeichen eingibt. In diesem Fall werden 
10 Zeichen erwartet (englisch: "to expect"), da dies die Zahl 

war, die das Wort EXPECT bei seinem Aufruf auf dem Stack vorfand. 
Die Zeichen werden in den Array TEXT eingegeben, wobei mit der 
Startadresse von TEXT begonnen wird, da sich diese nach Aufruf 
des Arraynamens auf dem Stack befindet. Das System fährt so lange 
mit der Zeicheneingabe fort, bis der Benutzer entweder 10 Zeichen 
eingegeben oder bis er die Return-Taste gedrückt hat. Das Wort 
EXPECT hat folgende Stack-Relation: 

a n -> (7-12) 


In Abbildung 7-3 sehen Sie ein einfaches Beispielprogramm, das 

EXPECT einsetzt. In Zeile 1 vereinbaren wir einen Array, der zur 
Aufnahme von Zeichen bestimmt ist und den Namen LEITERS trägt. 
Darauf folgt, beginnend mit Zeile 2, die Definition des Worts 

CHAR; in diesem Wort werden zuerst mittels EXPECT 10 Zeichen 
(oder weniger, je nach Benutzereingabe) im Array LETTERS abge 
speichert. Anschließend wird die Information wieder ausgegeben, 
und zwar sowohl die eingegeben Zeichen als auch deren ASCII-Code. 
Dazu benutzen wir sowohl das Wort EMIT als auch das Punktkomman 

do . Um sowohl das Zeichen als auch dessen ASCII-Code ausgeben zu 
cönnen, müssen wir zuvor jedes Zeichen mittels DUP duplizieren. 

Demäß seiner Vereinbarung können wir in dem Array LETTERS genau 
10 Zeichen speichern. Oft weisen wir zwei zusätzliche Bytes an 
Speicherplatz in einem Array zu, um darin als einfach genaue In 
teger die Anzahl der Zeichen in einem Array zu speichern. Andere 
FORTH-Systeme verfahren wiederum anders, in ihnen werden ein oder 
zwei Sonderzeichen hinter die eingegebene Textinforma tion ge 
schrieben, an denen das System das Ende eines Strings erkennt . 

Diese Endemarkierung wird automatisch von EXPECT angefügt. 
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0 ( Einfaches Beispiel für EXPECT ) 

1 VARIABLE LEITERS 8 ALLOT 

2 : CHAR LEITERS 10 EXPECT CR 

3 10 0 DO LEITERS I + C DUP EMIT 

4 LOOP 

5 

ABBILDUNG 7-3: Anwendungsbeispiel für EXPECT 

Vergewissern Sie sich anhand Ihrer Sprachbeschreibung, welchen 
Konventionen Ihr EXPECT folgt, und vergessen Sie dann nicht, 
entsprechend ausreichenden Speicherplatz für Strings bereitzu 
stellen . 

WORDS, >IN, HERE und BLK - Wenn Sie von der Tastatur Ihre Befehle 
an das FORTH-System geben, dann erscheinen Ihre Eingaben dem 
System erst einmal als eine unzusammenhängende Folge von Zeichen. 
Um zu "verstehen", was Sie meinen, muß das System diesen Zeichen 
ström als erstes in sinnvolle Einheiten aufteilen, d.h., es muß 
erkennen, welche Ihrer Eingaben FORTH-Wörter sind und bei welchen 
es sich um Daten handelt, die auf den Stack gelegt werden sollen. 
Dazu sucht das System nach speziellen Begrenzungszeichen oder 
Trennzeichen, an denen es die Wortgrenzen erkennen kann. Das 
wichtigste Trennzeichen in FORTH ist natürlich das Leerzeichen, 
es gibt aber auch noch andere Trenner. Mit dem FORTH-Kommando 
WORD können Sie außerdem vereinbaren, welches Zeichen als Trenn 
Zeichen fungieren soll. WORD macht aber noch mehr: Wenn es geru 

fen wird, liest es so lange Zeichen von der Tastatur, bis das 
vereinbarte Trennzeichen auftaucht. Betrachten Sie dazu folgendes 
Beispiel : 


32 WORD 


(7-13) 


WORD entfernt die 32 vom Stack und merkt sich, daß es sich dabei 
nun um ein Trennzeichen handelt . Bei der 32 handelt es sich je 
doch um den ASCII-Code für ein Leerzeichen. Hätten wir anstelle 
von 32 den Wert 35 auf den Stack gelegt, dann wäre das "#" neues 
Trennzeichen in unserem System. 
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Nachdem es sich nun das (eventuell neue) Trennzeichen gemerkt 
.at, liest WORD so lange Zeichen von der Tastatur, bis es auf 

dieses Trennzeichen stößt. Die eingelesenen Zeichen werden ge 
speichert, und die Anfangsadresse des Speicherbereichs, in dem 

sie abgelegt wurden, wird von WORD auf den Stack gelegt. Zusätz 

lieh zu den eingegebenen Zeichen enthält das erste Byte an dieser 
Adresse eine Integer (die allerdings nur ein Byte lang ist), wel 
che die Anzahl der eingegebenen Zeichen angibt. Denken Sie daran, 
daß WORD nur so lange Ihre Eingabedaten von der Tastatur spei 
chert, bis es auf das Trennzeichen stößt. Wenn Sie Ihre Eingaben 

jedoch mit einer Folge von Trennzeichen einleiten, dann werden 
diese ignoriert. WORD beginnt also erst dann mit der Speicherung, 
-enn Sie ein Nicht-Trennzeichen von der Tastatur eingeben, und 

hört damit auf, wenn danach wieder ein Trennzeichen erscheint . 

Zum "Wortschatz" von FORTH-79 gehört auch das Wort HERE, welches 

die Adresse des nächsten freien Wörterbucheintrags liefert . Bei 
Ausführung von WORD wird der eingelesene String ab der Adresse 
gespeichert, die man über HERE erhält. (Hier können sich einzelne 
FORTH-Systeme voneinander unterscheiden; Sie sollten die Einzel 
heiten in Ihrem Systemhandbuch überprüfen.) 

Tatsächlich ist die Arbeitsweise von WORD komplizierter, als wir 

es bisher dargestellt haben. Nehmen wir an, der Benutzer gibt 

eine Folge von Wörtern ein, wobei das Leerzeichen als Trenner 
fungiert. So, wie wir WORD bisher geschildert haben, würde es nur 
das erste Wort speichern, da der Einleseprozeß beim ersten Trenn 
Zeichen abgebrochen wird. Es gibt jedoch ein weiteres FORTH-Wort, 
mit dem diese Situation geändert werden kann. Es lautet >IN und 

ist der Name einer Variablen in FORTH-79. Die unter >IN gespei 

cherte Zahl gibt an, wieviel Zeichen der Benutzereingabe FORTH 
überlesen soll, ehe es durch WORD die Eingabekette des Benutzers 
verarbeitet . Falls wir in >IN beispielsweise den Wert 3 stehen 
haben, dann werden die ersten drei Zeichen, die der Benutzer auf 
der Tastatur tippt, ignoriert, wenn wir WORD aufrufen. Die in >IN 
gespeicherte Zahl kann sich zwischen 0 und 1023 bewegen. 

Wir müssen noch ein weiteres wichtiges FORTH-Wort besprechen. 
3isher sind wir davon ausgegangen, daß die Eingaben an das System 
von der Tastatur kommen. Dies muß aber nicht so sein; genausogut 

können die Eingaben von der Diskette stammen. Wenn also WORD ge 
rufen wird, dann müssen Sie zuerst dem FORTH-System mitteilen, 
von welcher Quelle die Eingabedaten kommen. Diese Information 

wird in einer anderen Standardvariablen von FORTH gespeichert. 
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die den Namen BLK trägt. Falls die in BLK gespeicherte Zahl 
gleich 0 ist, dann geht FORTH davon aus, daß die Eingaben an das 
System von der Tastatur kommen. (Die Details von Diskettenopera 
tionen werden wir erst im nächsten Kapitel kennenlernen.) 

0 (Einfaches Beispiel mit WORD) 

1 : SCAN 0 BLK ! 5 >IN ! 32 WORD C@ CR 

2 1 + 1 DO HERE I + C§ EMIT LOOP 

3 CR CR QUIT ; 

4 

5 

ABBILDUNG 7-4: Ein Beispiel für die FORTH-Wörter WORD, >IN, HERE 

und BLK 


Am Beispiel von Abbildung 7-4 wird die Arbeitsweise der soeben 
vorgestellten FORTH-Wörter deutlicher. Das in dem Beispiel defi 
nierte Wort mit dem Namen SCAN legt als erstes fest, daß die Ein 
gaben von der Tastatur kommen. Dies geschieht, indem wir in der 

Variablen BLK eine 0 speichern. Als nächstes vereinbaren wir, daß 
WORD die nächsten 5 Zeichen der Benutzereingabe übergehen soll. 
Der Grund dafür wird gleich klar werden. Wir bewirken dies, indem 
wir in der Variablen >IN eine 5 speichern. Dann rufen wir WORD, 
wobei wir durch eine auf den Stack gelegte 32 dafür sorgen, daß 

das Leerzeichen als Trennzeichen gilt. Nachdem WORD seine Aufgabe 
erledigt und die Eingabezeichen untersucht hat, findet sich die 
Adresse aus HERE auf dem Stack. Die Zahl, die an dieser Stelle 
gespeichert wird, besorgen wir uns nun mittels C . Sie entspricht 
der Anzahl der eingelesenen Zeichen. Auf diese Anzahl addieren 
wir 1 und haben somit alle Vorbedingungen für den Eintritt in 

eine Schleife erfüllt, die uns die eingelesenen Zeichen ausgeben 
soll. Beachten Sie, daß wir als Anfangsadresse dabei die Variable 
HERE angegeben haben. Wir beenden das Programm mit dem Wort QUIT. 
Würden wir diese Vorsichtsmaßnahme unterlassen, dann würden alle 

sonst noch bei Ausführung von WORD eingegebenen Zeichen anschlie 
ßend als Eingaben in das FORTH-System interpretiert werden. 

Angenommen, wir laden den Block aus Abbildung 7-1 und tippen an 
schließend ein: 

SCAN WEISST DU WIEVIEL STERNLEIN STEHEN (RETURN) (7-14a) 
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Zeraufhin bekommen wir folgendes auf dem Bildschirm zu sehen: 


WEISST (7-1 4b) 

*'ie Sie wissen, ist in der Variablen >IN eine 5 gespeichert; 
feshalb werden die ersten 5 Zeichen des Eingabestroms von SCAN 
loergangen. Dies bewirkt, daß das Wort SCAN selbst überlesen und 
erst das erste Wort des Satzes ausgegeben wird. Wenn wir (7-1 4a) 
iingeben, dann sorgt der Befehl SCAN dafür, daß das Programm aus 
.Abbildung 7-4 aufgerufen wird. Zu diesem Zeitpunkt befindet sich 
aber noch der ganze eingegebene Text einschließlich des Schlüs 
selwortes SCAN im Eingabestrom. Deshalb vereinbaren wir in Zeile 
' unseres Programms, daß die ersten fünf Zeichen übergangen wer 
fen sollen. Würden wir dies unterlassen, dann würde das Programm 
aus Abbildung 7-4 stets nur das Wort SCAN ausgeben und sich um 
weitere Benutzereingaben nicht kümmern. Hätten wir schließlich 
auf das QUIT in Zeile 3 verzichtet und gäben 7-14a ein, dann wür 
fe das FORTH-System versuchen, das Wort DU als FORTH-Kommando zu 
interpretieren und dabei vermutlich auf einen Fehler laufen. 

QUERY - Im vorigen Beispiel mußten wir den Wert von >IN auf 5 
setzen, damit die vier Buchstaben des selbstdefinierten Wortes 
SCAN nicht versehentlich beim Aufruf dieses Wortes mit eingelesen 
•werden. Es gibt jedoch ein spezielles FORTH-Wort, mit dem dieses 
vermieden werden kann; es lautet QUERY. Wenn wir dieses Wort 
rufen, dann werden die nächsten 80 von der Tastatur eingegebenen 
Zeichen im Eingabepuffer gespeichert. Im Puffer befinden sich 
somit nur die Zeichen, die nach Aufruf des Wortes QUERY eingege 
ben wurden, nicht aber die Zeichenfolge "QUERY" selbst. QUERY 
stellt den Einlesevorgang ein, wenn entweder 80 Zeichen vom Be 
nutzer getippt oder die Return-Taste gedrückt wurde. Falls sowohl 
in BLK als auch in >IN eine 0 gespeichert ist, dann liest WORD 
seine Informationen aus dem Eingabepuffer. Wir brauchen also nur 
das Programm in 7-4 so abzuändern, daß wir die 5 in Zeile 2 durch 
eine 0 ersetzen und vor der 32 in dieser Zeile das Wort QUERY 
einfügen. Jetzt befindet sich nach Aufruf von SCAN das Wort 
"SCAN" selbst nicht im Eingabepuffer, wenn wir NORD rufen. Das 
Programm gibt also auch nach dieser Veränderung das korrekte 
Ergebnis aus. 
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7 . 3 Stringverarbeitung 


In diesem Abschnitt lernen wir einige FORTH-Wörter kennen, die 
bei der Bearbeitung von Strings sehr nützlich sind. Wiederum 
befinden sich nicht alle diese Wörter im FORTH-7 9-Standard, sie 
sind jedoch Teil von MMSFORTH und anderen FORTH-Systemen . Schla 
gen Sie in Ihrem Handbuch nach, um herauszufinden, welche Befehle 
Ihr FORTH-System kennt und gegebenenfalls, welchen Namen die be 
treffenden Wörter dort haben. 


7.3.1 Stringkonstanten, Variable und Arrays 


Ebenso wie bei anderen Datentypen kann man auch Konstanten, Va 
riable und Arrays definieren, die zur Speicherung von Strings 
dienen. Bereits in Abschnitt 7-1 haben wir besprochen, wie man 
dies mit Wörtern aus dem "Wortschatz" von Standard-FORTH errei 
chen kann. Wir wenden uns nun einigen nichtstandardisierten Wör 
tern zu, die bequemer in der Handhabung sind. Zur Vereinbarung 
einer String-Konstante dient das Wort $CONSTANT. In vielen Pro 
grammiersprachen, einschließlich BASIC, dient das Dollar-Zeichen 
zur Markierung von Stringausdrücken. Hier ein Beispiel für die 
Anwendung von $CONSTANT : 


$CONSTANT EINE KONSTANTE" (7-15) 


Beachten Sie, daß in dieser Befehlsfolge nur ein einzelnes Anfüh 
rungszeichen vorkommt. In diesem Fall haben 'wir eine Stringkon 
stante vereinbart, der wir den Namen EINE gegeben haben. Diese 
Konstante enthält den String KONSTANTE. Im ersten Byte von EINE 
findet man eine ein Byte lange Integer, die die Länge des abge 
speicherten Strings angibt. Im Beispiel (7-15) ist die Länge des 
Datenbereichs für den Wörterbucheintrag EINE genau 9 Byte. Bei 
Ausführung von EINE wird die Adresse des ersten Bytes auf den 
Stack gelegt. Dieses Verfahren unterscheidet sich also von dem, 
das bei numerischen Konstanten üblich ist . Zur Vereinbarung einer 
Stringvariablen dient entsprechend das Wort $VARIABLE . Ein Bei 
spiel für seinen Einsatz: 
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20 $VARIABLE ABC 


(7-16) 


Ir. diesem Fall vereinbaren wir einen Wörterbucheintrag mit dem 
'.amen ABC« der für 21 Byte Platz hat. Bei Einrichtung der Varia 
bien werden alle diese Bytes mit dem Wert 0 besetzt. Auch hier 
iient das erste Byte oftmals dazu, die Länge des Strings festzu- 
b. alten, der in der Variablen ABC gespeichert ist. Dies geschieht 
edoch nicht automatisch. Der Programmierer muß selbst dafür sor 
gen, daß die notwendigen Informationen festgehalten werden. Die 
Siack-Relation für $VARIABLE lautet: 


n -> (7-17) 

Stringvariable und Stringkonstanten werden in gleicher Weise 
verwendet . Im Unterschied zu einer Variablen wird bei einer 
Stringkonstante jedoch der Konstantenwert zu dem Zeitpunkt be- 
stimnt, in dem die Konstante vereinbart wird. Es wird jedoch spä 
ter noch deutlich werden, daß wir - ebenso wie bei Stringvaria- 
olen - auch bei Stringkonstanten den String mit speziellen FORTH- 
Wörtern lesen und verändern können. Auch dies unterscheidet sich 
von der Behandlung, die numerische Konstanten und Variable in 
FORTE erfahren. 

Schließlich gibt es noch ein Wort, mit dem man in FORTH-Stringar- 
rays vereinbaren kann; es lautet $ARRAY. Aus Kapitel 7-1 wissen 
wir bereits, daß man Stringarrays auch mit ALLOT vereinbaren 
kann. Die Handhabung von $ARRAY ist jedoch bequemer, allerdings 
ist dies kein Wort des FORTH-7 9-Standards . Hier ein Anwendungs 
beispiel : 

20 10 $ARRAY LEITERS (7-18) 

In diesem Beispiel haben wir einen Array mit dem Namen LEITERS 
vereinbart, der aus 11 Elementen besteht. Jedes dieser 11 Elemen 
te kann bis zu 21 Byte speichern. $ARRAY hat die Stack-Relation 


n, n. 


(7-19) 
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Beachten Sie, daß n A + l gleich der Anzahl der Elemente im Array 
ist, während n A +l gleich der Anzahl Bytes ist, die in jedem 
Arrayelement gespeichert werden können (die Stringlänge) . Alle 
Arrayelemente werden bei Definition des Arrays mit 0 vorbesetzt. 
Wenn wir die Adresse des ersten Bytes vom dritten String des 
Arrays LETTERS auf dem Stack haben wollen, dann geben wir ein: 

3 LETTERS 


Auch zweidimensionale Stringarrays sind möglich; man vereinbart 
sie mit 2$ARRAY. Diese Vereinbarung muß folgende allgemeine Form 
haben : 


n x n 2 n 3 2 $ ARRAY TABELLE 


(7-20) 


Hier wird ein zweidimensionaler Array vereinbart, der n ? +l Zeilen 
und n A + l Spalten hat. Jedes Element in dieser "Tabelle" 1 ist sei 
nerseits ein String, der maximal n 3 B^te lang sein kann. n. darf 
in diesem Fall den Wert 254 nicht übersteigen. Wir haben folgende 
Stack-Relation : 


n„ n„ n 0 — > 
i 2 3 


(7-21) 


Auch hier werden alle Arrayelemente mit dem Wert 0 vorbesetzt. Um 
die Adresse des Strings in Zeile 3 und Spalte 5 von TABELLE auf 
dem Stack zu erhalten, müssen wir eingeben: 

3 5 TABELLE 

Denken Sie daran, daß bei der Numerierung von Zeilen und Spalten 
in einem Array mit Null begonnen wird. 
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7.3.2 Stringverarbeitung 


*,r stellen als nächstes dar, wie man Strings speichern, auslesen 
.ui manipulieren kann. Als erstes lernen wir das Wort $! kennen, 
*-j — genommen, wir haben bereits Daten in einer Stringvariablen oder 
icrmgkonstanten mit dem Namen ABC und wollen jetzt, daß diese 
Isren in eine andere Stringvariable dupliziert werden, welche den 
•— joen TOP trägt. Dies erreichen wir mit folgender Wortfolge: 

ABC TOP $ ! (7-22) 


Eie Verfahren bei der Arbeit mit Strings unterscheiden sich von 
denen, die wir von Zahlen her gewöhnt sind. Das kommt daher, weil 
es meistens sinnlos ist, einen ganzen String auf den Stack zu 
.egen. Falls der in der Variablen ABC länger als der ist, der 
sich in TOP befindet, dann werden Teile des Wörterbuches über- 
echrieben. Dies müssen Sie unbedingt vermeiden. Zur Ausgabe eines 
Strings benutzen wir den Befehl $.. Wir können den in TOP gespei 
cherten String mit folgendem Befehl ausgeben: 


TOP $ . 


(7-23) 


$ . erwartet also die Adresse eines Strings auf dem Stack, weswe 
gen seine Stack-Relation lautet: 


a 


> 


(7-24) 


Erinnern Sie sich daran, daß wir mit "a" in Stack-Relationen 
Adressen bezeichnen. Im Arbeitsspeicher des FORTH-Systems gibt es 
einen speziellen Speicherbereich, das Scratch pad (wörtlich etwa 
'Schmierzettel") . Hierbei handelt es sich um eine Gruppe von 
Speicherstellen, die zur temporären Zwischenspeicherung von 
Stringdaten und anderen Informationen dient. Die Anfangsadresse 
dieses Bereichs ist in der FORTH-7 9-Variablen PAD gespeichert. 
Bei wachsendem Wörterbuch ändert sich auch die Lage dieses Be 
reichs im Arbeitsspeicher. Die Ausführung des Wortes PAD führt 
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dazu, daß die Adresse des ersten Bytes in diesem speziellen Ar 
beitsbereich auf den Stack gelegt wird. 

Manchmal wollen wir einen neuen String aus zwei bereits existie 
renden Strings formen, indem wir diese hintereinanderschreiben . 
Man nennt diese Operation Verkettung oder auch Konkatenation . Das 
FORTH-Wort, das eine Konkatenation zweier Strings bewirkt, lautet 
$+ und funktioniert folgendermaßen: 

ABC TOP $+ (7-25) 


Dadurch wird der in TOP gespeicherte String an den in der Varia 
bien ABC gespeicherten String angehängt. Das Ergebnis der Verket 
tung finden wir in PAD . Deswegen hinterläßt die Operation $+ auch 
die Adresse von PAD als Ergebnis auf dem Stack. Bei der Verket 
tung von Strings sollten Sie mit Vorsicht Vorgehen. Das Ergebnis 
der Verkettung wird länger als jeder der beiden Ausgangsstrings. 
Versuchen Sie deshalb nicht, ein Verkettungsergebnis in einem 
Wörterbucheintrag zu speichern, der dafür zu klein ist . Für das 
Wort $+ erhalten wir die Stack-Relation: 


a $l a $2 > a pad 


(7-26) 


Man kann einen String auch direkt von der Tastatur eingeben, in 
dem man sich des Wortes $" bedient. Hier ein Beispiel: 


$" WEISST DU WIEVIEL STERNLEIN STEHEN" 


(7-27) 


Beachten Sie das Leerzeichen nach dem ersten Anführungszeichen. 
Der einzugebende String wird von einem zweiten Anführungszeichen 
abgeschlossen. Wenn wir das Beispiel (7-27) tippen und anschlie 
ßend RETURN drücken, dann wird der eingegebene String im Arbeits 
Speicher abgelegt, wobei als Ergebnis des $" die Anfangsadresse 
des Strings auf den Stack gelegt wird. Sollte $" in der Defini 
tion eines eigenen FORTH-Wortes Vorkommen, dann wird der String 
im nächsten verfügbaren Wörterbucheintrag abgelegt. 
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Gelegentlich ist es wünschenswert, daß ein Programm den Benutzei 
zur Eingabe eines Strings auf fordert. Dies erreichen wir mit dem 
Wort IN$ . Bei Ausführung dieses Wortes hält das System an und 
bringt ein Fragezeichen auf den Bildschirm. Der Programmbenutzer 
gibt dann einen String ein, welchen er durch RETURN abschließt . 
Dieser String wird in PAD abgelegt, wobei die Adresse von PAD auf 
den Stack kommt. Denken Sie daran, daß es sich bei diesem Spei 
cherbereich nur um einen temporären Speicher handelt; Sie sollten 
so bald wie möglich die dort zwischengespeicherten Daten an eine 
andere Stelle bringen, da durch nachfolgende Programmschritte der 
"Schmierzettel" überschrieben werden kann. 

Gelegentlich wollen wir in einem Programm auf einzelne Zeichen in 
einem String zugreifen. Diese Notwendigkeit kann z.B. dann auf 
tauchen, wenn wir einen String in eine andere Variable übertragen 
und dabei sichergehen wollen, daß wir nicht versehentlich das 
Wörterbuch überschreiben. In diesem Fall müssen wir die Anzahl 
der zu kopierenden Zeichen beschränken. Dafür können mehrere Wör 
ter eingesetzt werden. Eines davon lautet LEFT$ und wird so ein 
gesetzt : 

ABC 10 LEFT$ 

Diese Wortfolge führt dazu, daß die Adresse von ABC und die ein 
fach genaue Integer 10 auf dem Stack stehen. LEFT$ kopiert dann 
die ersten 10 Zeichen des Strings ABC in den temporären Arbeits 
bereich und hinterläßt dessen Adresse, also den Wert von PAD. Wir 
haben folgende Stack-Relation: 


a S n _> a pad (7 ~ 28) 

Es gibt noch zwei weitere Wörter, die mit LEFT$ inhaltlich ver 
wandt sind; eines davon heißt RIGHT. Dieses funktioniert ähnlich 
wie LEFT$, überträgt jedoch die letzten n Zeichen des Strings in 
den Arbeitsbereich. Falls es nötig ist, Teile aus der Mitte eines 
Strings zu kopieren, verwendet man das Wort MID$ . Es hat folgende 
Stack-Relation : 


3- f 1^2 ^ n 


• > jwad 


(7-29) 
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In diesem Fall werden n A Zeichen des Strings an der Adresse a A in 
den Arbeitsbereich übertragen. Der Kopiervorgang beginnt dabei 
mit dem n A -ten Zeichen, also n A Zeichen vom Anfang des Strings 
weg. Die Wörter LEFT$, RIGHT$ und MID$ ändern an dem ursprüngli 
chen String nichts. 

Gelegentlich ist es wünschenswert, die Zeichenketten auszutau 
sehen, die in zwei Stringvariablen abgespeichert sind. Dies be 
wirkt man mit dem Wort $XCG; Sie sollten hierbei allerdings auf 
passen, damit Sie nicht einen String an einen dafür zu kleinen 
Speicherplatz bewegen. Beim Austauschen von Strings wird eben 
falls der temporäre Zwischenspeicher benutzt. Die Stack-Relation 
für $XCG lautet : 


a $l a $2 


-> n 


(7-30) 


7.3.3 Stringvergleiche 


Strings können - ebenso wie andere Datentypen - miteinander ver 
glichen werden. Dazu gibt es in FORTH spezielle Wörter. Mit die 
sen ist es unter anderem auch möglich, einen String zu durchsu 
chen, um herauszufinden, ob er einen bestimmten Teilstring ent 
hält. Man möchte also herausfinden, ob eine bestimmte Zeichen 
folge Teil dieses Strings ist. Besonders bei Programmen, die mit 
Textverarbeitung zu tun haben, ist dies eine nützliche Anwendung. 
Eine solche Suche bewirkt man mit dem Wort INSTR. Hier ein Anwen 
dungsbeispiel : 


ABS TOP INSTR (7-31 ) 

In diesem Fall wird der String an der Adresse ABS durchsucht, 
wobei FORTH versucht herauszufinden, ob der in TOP gespeicherte 
String darin enthalten ist. Wenn etwa der String in TOP das Wort 
BÜCH enthält und der Wert von ABS lautet DAS BUCH IST AUF DEM 
TISCH, dann hinterläßt das Wort INSTR nach seinem Aufruf auf dem 
Stack die Integer 4. Dies bedeutet, daß der gesuchte Teilstring 
an der vierten Position im Zielstring zu finden ist. Sollte sich 
im Zielstring kein Vorkommnis des Suchstrings finden lassen, dann 
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_sht INSTR den Wert 0 auf den Stack. Wir haben folgende Stack- 
Relation : 


3 $1 & “> n (7 - 32) 

: : : ist es erforderlich, eine Anzahl von Strings in alphabetische 

-eihenfolge zu bringen. Jedem String kann man einen numerischen 
•ert zuordnen, der der Position entspricht, die dieser String in 
einer sortierten Liste haben würde. So hat z.B. der String "AAA" 
einen kleineren numerischen Wert als "AAB" . Man sagt auch, daß 
£er erste String in der Sortierfolge vor dem zweiten kommt. Ent 
sprechend ist der numerische Wert von "AECDEDE" kleiner als der 
von "ZXE". Ebenso unterscheidet sich der Sortierwert (und der 
ASCII-Wert) von Kleinbuchstaben von dem der entsprechenden Groß 
rachstaben. Zum Vergleichen zweier Strings - wobei deren numeri 
sehe Werte für den Vergleich herangezogen werden - benutzt man 
ras Wort $COMPARE; hier ein Beispiel für seine Anwendung: 

ABC TOP $ COMP ARE ( 7 - 33 ) 


Bei einem Aufruf von $ COMP ARE wird der numerische Wert des 
Strings, der an der Adresse ABC gespeichert ist, mit dem vergli 
chen, den der String unter der Adresse TOP hat. Die beiden Adres 
sen werden vom Stack entfernt, und - je nachdem, wie der Ver 
gleich ausfällt - die Werte - 1 , 0 oder 1 werden auf den Stack 
gelegt. Die Zahl 0 signalisiert, daß die beiden Strings gleich 
sind. -1 drückt aus, daß der erste String (in diesem Fall ABC) in 
der Sortierordnung vor dem zweiten String (TOP) kommt. Im umge 
kehrten Fall legt $COMPARE den Wert 1 auf den Stack. Die Stack- 
Relation lautet: 


a 

$1 


a $2 


-> n 


(7-34) 


Als Beispiel für die String-Manipulation wollen wir jetzt ein 
FORTH-Programm schreiben, das eine Liste von Namen sortiert. Sie 
finden das Programm in Abbildung 7-5. Es benötigt zwei Blöcke. 
Wir gehen davon aus, daß Sie diese beiden Blöcke geladen haben. 
Wir haben Kommentare in das Programm eingestreut, um Ihnen das 
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Verständnis seiner Arbeitsweise zu erleichtern. Wenden wir uns 
jetzt den Einzelheiten dieses Programms zu. Es besteht aus insge 
samt drei benutzerdefinierten FORTH-Wörtern . Mit dem ersten, das 
wir ALPHAIN get auft haben, geben wir die Daten ein. Das zweite 
Wort mit dem Namen ALPHAOUT besorgt die eigentliche Sortierarbeit 
und gibt dann das Ergebnis aus. Das dritte Wort, ALPHA, ruft le 
diglich diese beiden Wörter auf. In der ersten Zeile des ersten 

Blockes definieren wir zuerst einen String-Array mit dem Namen 
NACHNAME. Er umfaßt 11 Zeil en, von denen jede 20 Byte lang sein 
kann. Wir definieren des weiteren eine 21 Byte lange Stringvaria 
ble mit dem Namen TEEM. Weiterhin benötigt das Programm eine 
Stringkonstante, die den Namen Q trägt und aus einer Folge von 20 
Z's besteht. (Wir gehen davon aus, daß der Benutzer die zu sor 
tierenden Namen in Großbuchstaben eingibt.) Abschließend werden 
in Zeile 3 noch zwei Variablen mit dem Namen NUMB und NUMB1 ver 
einbart, die zur Speicherung zweier einfach genauer Integers 

dienen . 

Das Eingabewort ALPHAIN beginnt in Zeile 4 des ersten Blockes. In 
den Zeilen 5 und 7 wird der Array NACHNAME initialisiert . In 
jedem String dieses Arrays speichern wir im ersten Byte die 

Stringlänge (20) . Die verbleibenden Stringelemente setzen wir auf 
0. Dieser Schritt wäre unnötig, wenn das Programm immer nur ein 
mal durchlaufen werden soll. In diesem Fall setzt FORTH ja auto 
matisch den String-Array auf 0. Wir wollen das Wort jedoch mehr 
fach aufrufen; in diesem Fall befinden sich nach dem ersten 
Durchgang im Array immer noch die alten Sortierdaten, die für ein 
korrektes Funktionieren des Programms durch eben diesen Initiali 
sierungsschritt erst entfernt werden müssen. Zeile 7 speichert im 
ersten Byte des Strings TEMM den Wert 20, vermerkt also ebenfalls 
die Stringlänge an dieser Stelle. 

Die Dateneingabe wird in den Zeilen 9 bis 13 besorgt . Dies ge 
schieht, indem das Programm vom Benutzer die Eingabe einer ein 
fach genauen Integer verlangt. Diese entspricht der Anzahl von 

Namen, die sortiert werden sollen. Hier sollte der Benutzer kei 
nen Wert angeben, der größer als 10 ist. (Genaugenommen könnten 
wir auch noch Zeile 0 unseres zweidimensionalen Arrays benutzen 
und dann 11 Namen sortieren; wir verzichten hier jedoch darauf.) 
Sollten Sie eine längere Namenliste sortieren lassen wollen, dann 
müssen Sie in Zeile 1 anstelle der 10 den gewünschten Wert ein 
tragen. Die eigentlichen Sortierdaten werden in einer Schleife 
(Zeile 11 - 13) eingelesen und im Array NACHNAME gespeichert. 

Wir bedienen uns hierzu des Wortes EXPECT, da man mit diesem Wort 
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0 ( Sortierprograinm - Block 1 von 2 ) 

1 2010 $ARRAY NACHNAME 20 $VARIABLE TEMM 

2 $C0NSTANT Q ZZ ZZ ZZ ZZ ZZ ZZ ZZ ZZ ZZ ZZ Z " 

3 VARIABLE NUMB VARIABLE NUMB1 

4 :ALPHAIN (Variablen initialisieren und Daten eingeben) 

5 100 DO 201 NACHNAME C ! 

6 20 1 DO 0 J NACHNAME I + C! LOOP 

7 LOOP 20 TEMM C! 

8 (Anzahl der Namen eingeben) 

9 CR. " WIE VIELE NAMEN SOLLEN SORTIERT WERDEN " #IN NUMB ! 

I 0 (Liste der Namen eingeben) 

II CR NUMB § 1 + 1 DO WIE LAUTET DER NAME NR. " I . 

12 CR 1 NACHNAME 1+ 20 EXPECT CR 

1 3 LOOP CR i 

14 

15 


0 (Sortierprogramm - Block 2 von 2) 

1 : ALPHAOUT (Sortieralgorithmus) 

2 (TEMM auf 20 mal "Z" setzen) 

3 NUMB 0 1+ 1 DO Q TEMM $ ! 

4 (Innere Schleife initialisieren und Vergleich starten) 

5 NUMB @ 1 + 1 DO I NACHNAME TEMM $ COMP ARE 

6 (Namen finden) 

7 0< IF I NUMB1 ! I NACHNAME TEMM $ ! 

8 THEN LOOP 

9 (Namen ausgeben) 

10 CR NUMB1 § NACHNAME $, 

11 (Ausgegebene Namen doeschen 1 ) 

12 Q NUMB1 0 LASTNAME $! 

13 LOOP ; 

14 

15 : ALPHA ALPHAIN ALPHAOUT ; 

ABBILDUNG 7-5: Ein Sort ierprogramm 


die Anzahl der Eingabezeichen automatisch auf 20 begrenzen kann. 
Dazu muß dem Wort EXPECT allerdings der Wert 20 auf dem Stack be 
reitgestellt werden (Zeile 12) . Die auf den Stack gelegte Adresse 
ist NACHNAME+1 . Dadurch wird die erste in den einzelnen Strings 
gespeicherte Zahl nicht verändert und behält den bei der Initi- 
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alisierung eingeschriebenen Wert 20 bei. In Zeile 13 endet die 
Definition von ALPHAIN. 

Untersuchen wir jetzt den zweiten Block in der Abbildung 7-11. 
Hier findet der eigentliche Sortiervorgang statt. Wir bedienen 
uns dabei des folgenden Verfahrens: Wir gehen durch die gesamte 
Liste der zu sortierenden Namen und suchen den alphabetisch 

kleinsten Namen heraus. Diesen geben wir dann aus und löschen ihn 
aus der Liste. Anschließend gehen wir erneut die ganze Liste 
durch, suchen wieder nach dem kleinsten Namen, der jedoch jetzt, 

bezogen auf die Gesamtliste, der zweitkleinste Name sein muß, da 
ja der kleinste gelöscht wurde. Dieser wird ebenfalls ausgegeben 
und gelöscht. Der Prozeß wird so lange wiederholt, bis alle Namen 
aus der Liste gelöscht sind. Um den kleinsten Namen in der Liste 
zu finden, vergleichen wir jeden Eintrag mit einem Vergleichs 

wert, der als erstes aus 20 Zs besteht. Ist der Listeneintrag 

kleiner als der Vergleichswert (und beim ersten Durchgang ist er 
dies mit Sicherheit immer) , dann wird der Listenwert zum neuen 
Vergleichswert, und der zweite Listeneintrag wird mit dem neuen 
Vergleichswert verglichen. Ist er kleiner, dann ersetzt er den 
Vergleichswert, und wir gehen auf diese Art und Weise die gesamte 
Liste durch. Dadurch ist garantiert, daß wir das jeweils alphabe 
tisch kleinste in der Liste enthaltene Element finden. 

Das Wort, das all diese Operationen bewirkt, heißt ALPHAOUT und 
beginnt in Zeile 1 . Es arbeitet mit zwei ineinander verschachtel 
ten Schleifen. Die erste Schleife geht so oft durch die Liste, 
wie Einträge in ihr enthalten sind. Die zweite innere Schleife 
sucht bei jedem Durchgang das aktuelle kleinste Element heraus, 
gibt es aus und löscht es. Die äußere Schleife hat als Anfangs 
wert 1 und als Testwert 1 plus die Anzahl der Namen im Array. In 
Zeile 3 setzen wir in der Variablen TEMM den anfänglichen Ver 
gleichswert, der aus 20 Zs besteht und somit garantiert am Ende 
einer alphabetisch sortierten Liste zu stehen kommt. Jetzt geht 
es in die innere Schleife. TEMM wird mit jedem Nameneintrag in 
der Liste verglichen; falls der Listeneintrag kleiner als der 
Vergleichswert ist, dann ersetzt er den in TEMM gespeicherten 
Wert. Außerdem merken wir uns noch in der Variablen NUMB1, an 
welcher Position im Array der String zu finden ist, der als letz 
ter den Vergleichswert in TEMM ersetzt hat. Nach einem voll 
ständigen Durchgang durch die innerste Schleife enthält folglich 
NUMB1 die Zeilennummer des alphabetisch kleinsten Namens in NACH 
NAME. Dies en Namen geben wir in Zeile 10 aus. Als nächstes wird 
der so gefundene Wert in Zeile 12 gelöscht, indem wir lauter Zs 
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in den String schreiben und ihn so an das Ende des Alphabets 
bringen. Es folgt ein neuer Durchgang durch die äußerste Schlei 
fe. Der im letzten Durchgang gefundene Name - der kleinste in der 
Gesamtliste - kommt jetzt nicht mehr als Kandidat in Frage, da er 
durch eine Folge von Zs ersetzt und somit an das Ende der alpha 
betischen Liste gebracht worden ist. Wenn wir jetzt zum zweiten 
Mal in die innerste Schleife eintreten, finden wir somit den 
zweiten Namen in der alphabetischen Reihenfolge (bezogen auf die 
Gesamtliste) . Das Sortierwort ALPHAOUT endet in Zeile 13. 

Ganz im Sinne der strukturierten Programmierung findet sich in 
Zeile 14 das Wort ALPHA, das lediglich die beiden Hilfswörter 

ALPHAIN und ALPHAOUT auf ruft . 


7.3.4 Weitere Stringfunktionen 


Manchmal werden Strings - vor allen Dingen vom Ende her - mit 
Leerzeichen aufgefüllt. Beispielsweise könnten wir für einen 
String 64 Byte an Platz bereitgestellt haben, von denen aber nur 
25 mit Zeichen beschrieben sind. Der verbleibende Platz wird mit 
Leerzeichen aufgefüllt. Dies kann zu gewissen Problemen führen. 
Wenn wir z.B. den String auf einem Drucker ausgeben wollen, so 
sollten die überflüssigen nachlaufenden Leerzeichen nicht mit 
ausge"druckt" werden. In FORTH ist es ja üblich, im ersten Byte 
eines Strings die Anzahl der darin gespeicherten Zeichen zu 
vermerken. Es wäre nun wünschenswert, diese Zahl zumindest zeit 
weilig durch eine zu ersetzen, die die Anzahl der tatsächlich 
gespeicherten Zeichen ohne nachlaufende Leerzeichen angibt. Diese 
Zahl könnte man dann verwenden, um Druckausgaben zu steuern. Das 
FORTH-Wort -TRAILING tut genau das Gewünschte: Es legt eine Zahl 

auf den Stack, die gleich der Stringlänge abzüglich nachlaufender 
Leerzeichen ist . Hier ein Beispiel : 


ABC ABC 

-TRAILING 




(7 

-35) 

Bei dem 

Aufruf 

von 

-TRAILING wird die erste 

Adresse 

von ABC 

vom 

Stack entfernt 

und 

die 

berichtigte Zeichenzahl des 

Strings 

als 

einfach 

genaue 

Integer 

auf den Stack gelegt 

Jetzt 

enthält 

der 


Stack also die Anfangsadresse von ABC und die "Nettozeichenzahl". 
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Letztere ist an oberster Stack-Position. Beachten Sie, daß -TRAI- 
LING am erste Byte von ABC keine Veränderungen vornimmt . 

Es ist auch möglich, nachlaufende Leerzeichen aus einem String zu 
löschen. Dazu bedient man sich des Wortes $-TB. Wenn wir z.B. 
folgende Wörter ausführen: 

ABC $— TB 

dann wird das erste in ABC gespeicherte Byte so verändert, daß es 
die tatsächliche Zeichenzahl in ABC ohne nachlaufende Leerzeichen 
wiedergibt . 


7.3.5 Numerische Stringinformationen 

Es gibt in FORTH auch Wörter, mit denen man sich numerische In 
formationen über Strings beschaffen kann. Diese wollen wir jetzt 
besprechen. Mit dem Wort LEN erfährt man die Länge eines Strings. 
Durch Ausführung von 


ABC LEN 


(7-36) 


wird die Adresse von ABC vom Stack entfernt und durch eine ein 
fach genaue Integer ersetzt, die der Anzahl der Zeichen in dem 
String entspricht . 

Das FORTH-Wort ASC liefert den ASCII-Code des ersten Zeichens in 
einem String. Das Beispiel 


ABC ASC (7-37) 


sorgt dafür, daß die Adresse von 
ihrer Stelle dort der ASCII-Code 
abgelegt wird. Die beiden Wörter 
Relation 


ABC 

vom 

Stack entfernt 

und an 

des 

ersten Zeichens 

im 

String 

LEN 

und 

ASC haben 

die 

Stack- 
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a — > 


n 


(7-38) 


Das FORTH-Wort CHR$ erwartet eine einfach genaue Integer auf dem 
Stack (diese muß einem gültigen ASCII-Code entsprechen) und er 
setzt diese durch die entsprechende Zeichendarstellung im tempo 
raren Arbeitsbereich. Um auf das Ergebnis zugreifen zu können, 
legt CHR$ die Adresse dieses Arbeitsbereiches (PAD) als Ergebnis 
auf den Stack. Wir haben folgende Stack-Relation: 


n — > a 

pad 


(7-40) 


Oft ist es erforderlich, in Stringdarstellung gespeicherte Zahlen 
in ihre numerischen Entsprechungen umzuwandeln. Ein String, der 
aus lauter Ziffern besteht, stellt zwar - für den Menschen - eine 
Zahl dar, der Computer kann jedoch damit nicht rechnen. Dazu muß 
der String zuvor umgewandelt werden, was das FORTH-Wort VAL be 
sorgt. Dieses wandelt eine als String gegebene Zahl in die ent 
sprechende einfach genaue Integer um. Wenn also beispielsweise in 
ABC der String "123" gespeichert ist, dann haben wir nach Ausfüh 
rung von 

ABC VAL 

auf dem Stack die einfach genaue Integer 123 liegen. Die Stack- 
Relation lautet: 


a — > 


n 


(7-41) 


7 . 4 Übungsaufgaben 


Wenn in den folgenden Aufgaben von Ihnen verlangt wird, FORTH- 
Programme zu schreiben, dann überprüfen Sie diese am besten an 
Ihrem Computer. Halten Sie die einzelnen FORTH-Wörter so kurz wie 
möglich; versuchen Sie modular zu programmieren. 
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7-1 Was ist der Unterschied zwischen einem Zeichen und einem 
String? 

7-2 Vergleichen Sie die FORTH-Wörter C! und C@ mit ! und §. 

7-3 Richten Sie zwei Arrays ein. Speichern Sie im ersten Inte- 
gers, und duplizieren Sie diese mittels CMOVE in einen zwei 
ten Array. Dazu muß der zweite Array natürlich mindestens so 
groß wie der erste sein. 

7-4 Wiederholen Sie Aufgabe 7-3 unter Verwendung von MOVE . 

7-5 Warum kann man in Aufgabe 7-3 sowohl mit CMOVE als auch mit 
< CMOVE arbeiten? 

7-6 Schreiben Sie ein FORTH-Wort, das Zeichen von der Tastatur 
einliest und ihren ASCII-Code auf dem Bildschirm ausgibt. 
Das Programm sollte durch Eingabe eines Prozentzeichens be 
endet werden. 

7-7 Schreiben Sie ein Programm, mit dem Sie Text eingeben und in 
einen Array speichern können. Lassen Sie sich dann Ihre Ein 
gäbe satzweise ausgeben. Nach Ausgabe eines Satzes sollte 
das Programm so lange warten, bis Sie einen neuen eingeben. 

7-8 Schreiben Sie das Programm der Abbildung 7-1 neu, so daß Sie 
Zeichen im gespeicherten Text verändern können. 

7-9 Schreiben Sie das Programm der Abbildung 7-1 neu, so daß Sie 
Zeichen aus dem Text löschen können. 

7-10 Schreiben Sie das Programm der Abbildung 7-2 neu, so daß 
nicht zu viele Zeichen in den Array TEXT mitaufgenommen wer 
den können . 

7-11 Schreiben Sie das Programm in Abbildung 7-1 neu, so daß es 
mit dem FORTH-Wort EXPECT arbeitet. Beenden Sie Ihre Einga 
ben durch Drücken der Return-Taste. 

7-12 Schreiben Sie mittels WORD ein FORTH-Programm, das einen 
String durchgeht und das erste Wort darin ausgibt. Dann hält 
das Programm an und wartet so lange, bis Sie ein beliebiges 
Zeichen eingeben, woraufhin das nächste Wort ausgegeber. 
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wird. Dieser Prozeß soll so lange fortgesetzt werden, bis 
alle Wörter im String ausgegeben sind. 

7-13 Wiederholen Sie Aufgabe 7-12, wobei Sie diesmal mit dem 
Trennzeichen "#" arbeiten. 

7-14 Was ist der Unterschied zwischen Stringkonstanten und nume 
rischen Konstanten? 

7-15 Ändern Sie das Programm der Abbildung 7-1 so, daß es mit den 
Wörtern aus Abschnitt 7-3 arbeitet. 

7-16 Wiederholen Sie Aufgabe 7-8 mit den Wörtern aus Abschnitt 7- 

3 . 

7-17 Wiederholen Sie Aufgabe 7-9 mit den Wörtern aus Abschnitt 7- 

3 . 

7-18 Wiederholen Sie Aufgabe 7-10 mit den Wörtern aus Abschnitt 

7-3. 

7-19 Ändern Sie das Programm aus der Abbildung 7-5 so, daß der 

Originalarray erhalten bleibt . 

7-20 Wiederholen Sie die Aufgabe 6-16, wobei diesmal der Verkäu 

fername mitauf genommen werden soll. Setzen Sie hier jedoch 
nicht die Wörter aus Abschnitt 7-3 ein. 

7-21 Wiederholen Sie Aufgabe 7-20 mit den Wörtern aus Abschnitt 

7-3. 

7-22 Wiederholen Sie Aufgabe 7-21, lassen Sie sich diesmal jedoch 
die Werte nach den Verkäufernamen alphabetisch sortiert aus 
geben . 

7-23 Erörtern Sie die Arbeitsweise von $+. 

7-24 Warum sollten Sie nicht über längere Zeit Daten im temporä 
ren Arbeitsspeicher Zwischenspeichern? 

7-25 Ändern Sie das Programm der Abbildung 7-5 so ab, daß nur die 
ersten vier Zeichen eines jeden Namens für den Vergleich 
herangezogen werden. 


269 



7 Zeichen und Zeichenfolgen 


7-26 Wiederholen Sie das Programm der Abbildung 7-1 so, daß Sie 
die gespeicherten Daten nach einem bestimmten Teilstring 
durchsuchen können. 

7-27 Wiederholen Sie Aufgabe 7-26 ohne das FORTH-Wort INSTR. 
Hinweis: schreiben Sie Ihr eigenes Wort, das diese Funktion 

erledigt . 

7-28 Vergleichen Sie die Wörter -TRAILING und $-TB . 

7-29 Schreiben Sie ein Programm, das zwei als Strings gespeicher 
te Zahlen addiert . 
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8 Diskettenoperationen 


In diesem Kapitel gehen wir die Prinzipien der Disketten-Ein- und 
-Ausgabe durch. Einige Informationen darüber haben wir schon in 

Kapitel 1 besprochen; hier haben Sie erfahren, wie Sie Ihre Pro 

gramme auf Diskette speichern und später laufen lassen können. 
Iieses Thema wollen wir im vorliegenden Kapitel noch einmal auf 
greifen. Darüber hinaus beschäftigen wir uns mit der wichtigen 

"rage der Datenorganisation auf Disketten. Viele der dabei behan 
delten Themen hängen eng miteinander zusammen. Etliche Techniken 

zum Speichern von Programmen können auch für die Datenspeicherung 
eingesetzt werden. Einige Details, die wir hier darstellen, kön 
nen von System zu System etwas unterschiedlich ausfallen. 


8 . 1 Prinzipien der Datenspeicherung auf Diskette 


Dieses Kapitel hat zum Ziel, die in Kapitel 1-4 eingeführten 
Kenntnisse über die Diskettenspeicherung zu erweitern und zu ver 
tiefen. Deshalb wiederholen wir etwas von dem Material, das wir 
im ersten Kapitel bereits eingeführt haben. 

Peine FORTH-Systeme werden mit einem eigenen Betriebssystem aus 
geliefert. Verglichen mit anderen Betriebssystemen sind diese je 
doch sehr einfach strukturiert. Ein Vorteil der ausschließlichen 
Arbeit in FORTH besteht jedoch darin, daß Sie dieses einfache Be 
triebssystem leicht modifizieren und Ihren persönlichen Zwecken 
anpassen können. So verwalten die meisten Betriebssysteme Disket 
teninhaltsver zeichnisse mit einer äußerst komplexen Struktur; im 
Vergleich dazu ist das vom FORTH-Betriebssystem verwaltete In 
haltsverzeichnis rudimentär. Sie können es als Benutzer jedoch 
leicht modifizieren und Ihren eigenen Bedürfnissen anpassen. An 
dere FORTH-Systeme verwalten die benötigten Informationen zwar im 
Inhaltsverzeichnis, tun dies jedoch nicht in einer Ihnen genehmen 
Form; auch diese Systeme können meistens nach den Benutzerwün 
sehen modifiziert werden. Wieder andere FORTH-Systeme verwenden 
das eigentliche Betriebssystem des Computers, enthalten aber ihre 
eigenen Kommandos für Disketten-Ein- und -Ausgabe. 

Um die nachfolgenden Erörterungen besser verstehen zu können, 
wollen wir erst einmal darstellen, wie Programme auf Disketten 
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gespeichert werden. Wie Sie bereits aus Kapitel 1-4 wissen, wer 
den die meisten FORTH-Programme in einem FORTH-Editor eingetippt 
und anschließend auf Diskette gespeichert. Das FORTH-System ar 
beitet dabei mit sog. Datenblöcken, von denen jeder genau 1024 
Byte fassen kann. (Genaugenommen kann diese Zahl von System zu 
System variieren; bei 1024 handelt es sich jedoch um einen typi 
sehen Wert.) Stellen Sie Sich jetzt einmal vor. Sie geben ein 
Programm mit Ihrem Editor ein. Die Zeichen, die Sie auf Ihrer 
Tastatur tippen, werden nicht direkt auf Diskette gespeichert, 
sondern in einem speziell dafür reservierten Bereich im Arbeits 
Speicher abgelegt. Diesen Bereich bezeichnet man als Blockpuffer. 
Wie Sie wissen, ist ein Puffer ein Speicherbereich, der für die 
temporäre Speicherung von Daten vorgesehen ist. In FORTH ist der 
Pufferbereich seinerseits wieder in Blöcke unterteilt, die der 
Blockgröße auf Diskette - in unserem Beispiel 1024 - entsprechen. 
Blöcke aus dem Arbeitsspeicherpuffer können auch auf Diskette ge 
speichert werden. Man spricht dann von Diskettenblöcken. Ihr 
FORTH-System reserviert in der Regel eine ganze Anzahl solcher 
Blockpuffer im Arbeitsspeicher. Jeder von der Diskette geladene 
oder auf Diskette zu schreibende Block wird in einem Puffer ab 
gelegt. Bei einigen Systemen ist die Anzahl der Puffer festge 
legt, bei anderen kann sie variieren. Sehen Sie also in Ihrem 
Handbuch nach, um die Usancen Ihres Systems zu erfahren. 

Sie haben also nun ein Programm eingegeben und in einem Blockpuf 
fer gespeichert. Die meisten Editoren verfügen über Kommandos, 
mit denen Sie den Pufferblock markieren können, so daß er bei der 
nächsten Aktualisierungsoperation auf Diskette gespeichert wird; 
meistens bedient man sich dazu des FORTH-Wortes UPDATE. Gelegent 
lieh arbeiten Sie mit langen Programmen, die nicht in einem ein 
zigen Block Platz finden. Es kann sogar sein, daß Ihr Programm 
mehr Blöcke belegt, als im Pufferbereich reserviert sind. Der 

Einfachheit halber wollen wir davon ausgehen, daß dieses hypothe 
tische Programm in drei Diskettenblöcke gespeichert ist, Ihr 

FORTH-System im Arbeitsspeicher jedoch nur zwei Pufferblöcke be 
reitstellt. Zur Bearbeitung von drei Blöcke ist es nötig, einen 
der Speicherblöcke zu überschreiben . Wenn Sie einen Pufferblock 
mittels UPDATE markieren und nachfolgend versuchen, diesen zu 

überschreiben, dann wird der Block automatisch auf die Diskette 
zurückgeschrieben, ehe der Inhalt überschrieben werden kann. Das 
bedeutet, daß das FORTH-System Blöcke schützt, die zur Aktuali 
sierung markiert wurden. (Vergewissern Sie sich anhand Ihres 
FORTH-Handbuches , daß dies in Ihrem System auch wirklich so ist.) 
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Wie wir gesehen haben, können Sie Ihr eingegebenes Material mit 

tels UPDATE markieren und so vor Verlust schützen. Auch wenn Sie 
den Editor versehentlich verlassen, werden die markierten Blök- 
ke auf Diskette gespeichert. Darüber hinaus erlauben viele Sy 
steme dem Benutzer auch, den Editor ohne Sicherung zu verlassen, 
indem etwa die BREAK-Taste gedrückt wird. 

Wir können auch selbst dafür sorgen, daß in Blockpuffern enthal 
tenes Material auf Diskette geschrieben wird. Ehe wir das Wort 
betrachten, mit dem man das bewirkt, wollen wir noch einige De 
tails des Ediervorgangs untersuchen. Die Blöcke auf einer Dis 
kette sind durchnumeriert. (Die Methode, nach der diese Numerie 
rung geschieht, wollen wir noch später besprechen.) Sie müssen 
dem Editor beim Aufruf die Nummer des Blockes mitteilen, die er 

bearbeiten soll. In der Regel ruft man den Editor über das FORTH- 

Wort EDIT auf. Zur Bearbeitung des Blockes 123 müssen Sie also 
eingeben : 

123 EDIT (RETURN) (8-1) 

EDIT entfernt also eine Integer vom Stack und liest den entspre 
chenden Block von der Diskette in einen Pufferblock. Anschließend 

befinden Sie sich im Editor und können diesen Block mit den ent 
sprechenden Kommandos bearbeiten. EDIT hat die Stack-Relation 


n 


— > 


( 8 - 2 ) 


Eine spezielle FORTH-Variable mit dem Namen SCR speichert stets 
die Nummer des Pufferblockes, der gerade bearbeitet wird. Weiter 
hin merkt sich das System die Nummer des Diskettenblockes, der 
die Daten enthält, die im in Arbeit befindlichen Pufferblock ge 
speichert sind. Beachten Sie, daß zur Speicherung dieses Wertes 
SCR nicht herangezogen werden kann, da Sie ja mit mehreren Blök- 
ken gleichzeitig arbeiten können. Die in SCR enthaltene Zahl ist 
stets die Blocknummer des letzten bearbeiteten Blockes. Angenom 
men. Sie haben einen oder mehrere Blöcke bearbeitet und für die 
Aktualisierung markiert. Wenn Sie jetzt das FORTH-Kommando SAVE 
BUFFERS eingeben, dann wird jeder markierte Speicherpuffer an die 
passende Stelle auf der Diskette gesichert. Viele FORTH-Systeme 
benutzen auch anstelle von SAVE-BUFFERS das Kommando FLUSH. 
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Gelegentlich arbeiten Sie mit einem im Teststadium befindlichen 
Programm und wollen nicht, daß die gerade im Blockpuffer befind 
liehe Version die auf der Diskette gespeicherte Version über 
schreibt. Dabei ist zu beachten, daß das Zurückschreiben unbe 
nutzter Blöcke vom FORTH-System manchmal automatisch ausgeführt 
wird. Um so etwas zu verhindern, können Sie mit dem Wort EMPTY- 
BUFFERS einen Puffer vor dem Zurückschreiben auf die Diskette be 
wahren. Die Ausführung von EMPTY-BUFFERS sorgt nämlich dafür, daß 
die Aktualisierungsmarken von allen Speicherpuffern entfernt wer 
den. EMPTY-BUFFERS ändert nichts an dem Material, das in den 
Blockpuffern gespeichert ist. Sie können dieses also weiterhin 
mit dem Editor bearbeiten. Wenn Sie es wollen, können Sie dann 
ohne weiteres im Anschluß daran einen Puffer wieder mittels 
UPDATE markieren und so dafür sorgen, daß er bei der nächsten 
Aktualisierung berücksichtigt wird. Denken Sie jedoch daran, daß 
UPDATE stets nur den Block markiert, der als letzter in Arbeit 
befindlich war. 

Beim Edieren ist es gelegentlich erforderlich, sich das Wort 
anzuschauen, das man gerade bearbeitet. Zwei FORTH-Wörter können 
dazu eingesetzt werden. Eines davon lautet L. Um es auszuführen 
geben Sie einfach ein: 


L (RETURN) 


(8-3) 


Der aktuelle Block - also der, dessen Nummer in SCR gespeichert 
ist - wird dann auf dem Bildschirm ausgegeben. Um auch noch zu 
sätzlich eine Druckausgabe zu erreichen, verwenden Sie das Wort 
PCRT . Mit L können Sie jedoch nur den aktuellen Block auf listen. 
Wenn Sie einen anderen als den gerade in Arbeit befindlichen 
Block sehen wollen, dann müssen Sie das Kommando LIST geben. Um 
den Block 123 aufzulisten, müssen Sie also eingeben: 

123 LIST (RETURN) (8-4) 


Daraufhin wird die Zahl 123 vom Stack entfernt und in SCR gespei 
chert . Anschließend wird der betreffende Block ausgegeben. Die 
Stack-Relation für LIST finden Sie ebenfalls in (8-2) . 


276 



8 Diskettenoperationen 


Wenn SCR sowieso schon den richtigen Wert enthält, dann brauchen 
Sie nicht das Wort EDIT einzugeben. Im MMSFORTH reicht es, das 
Kommando E zu tippen. Dieses bewirkt, daß der Block bearbeitet 
wird, dessen Nummer in SCR gespeichert ist. 

Nun ein paar Wörter zur Compilierung von FORTH-Programmen . Dieser 
Vorgang muß stattfinden, ehe Sie ein Programm ausführen können. 

' Compilieren" bedeutet, daß unter anderem Wörterbucheinträge für 
Wörter und Variable und Verweise auf den Maschinencode angelegt 
werden, der die entsprechenden Operationen auslöst. Zum Compilie 
ren eines Blockes geben Sie das FORTH-Kommando LOAD. Daraufhin 
wird der Block geladen, und alle darin enthaltenen Wörter werden 
ausgeführt. Um das Programm zu compilieren, das in Block 123 ge 
speichert ist, müssen Sie also eintippen: 


123 LOAD (RETURN) (8-5) 

In diesem Fall wird die Zahl 123 vom Stack entfernt und der so 
angegebene Block geladen. Sind in dem Block Definitionen mittels 
: und ; enthalten, so werden die entsprechenden Wörter compi- 

liert; direkt ausführbare Anweisungen wie etwa 

VARIABLE ABC 

werden hingegen sofort ausgeführt. Die Relation (8-2) gilt eben 
falls für LOAD. 

Gelegentlich ist es nötig, mehrere Blöcke auf einmal zu laden. In 
diesem Fall können Sie mit dem MMSFORTH-Kommando LOADS arbeiten. 
Dieses Wort ist kein Teil des FORTH-7 9-Standards . Um Block 123 
und die nachfolgenden beiden Blöcke zu laden, müssen Sie einge 
ben : 


123 3 LOADS (RETURN) 


( 8 - 6 ) 


Bei LOADS lautet die Stack-Relation folgendermaßen: 


n 


1 


— > 


(8-7) 
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In einigen FORTH-Systemen ist LOADS anders definiert und funktio 
niert entsprechend anders. Überprüfen Sie deshalb vorher die In 
formationen in Ihrem FORTH-Handbuch . 

Eine andere Methode zum Laden mehrerer Blöcke besteht darin, als 
letzte Anweisung in einem Block das FORTH-Kommando aufzunehmen, 
das den nächsten Block lädt . Wenn nun der erste Block geladen 
wird, dann wird diese Anweisung ausgeführt und sorgt dafür, daß 
auch der nächste Block nachgeladen ist. Zum Laden der beiden 
Blöcke 123 und 124 nehmen Sie also in Ihren Block 123 als letzte 
Anweisung auf : 

124 LOAD 

Wenn Sie jetzt den Block 123 laden, dann hat dies zur Folge, daß 
auch Block 124 automatisch nachgeladen wird. Diesen Prozeß kann 
man wiederholen und so eine beliebige Anzahl von Blöcken mitein 
ander verketten. Wenn sich ein einzelnes FORTH-Wort allerdings 
über mehr als einen Block erstreckt, dann ist dieses Verfahren 
nicht anwendbar. Die einfachste Lösung für dieses Problem besteht 
darin, kürzere Wörter zu schreiben, die in einem Block Platz fin 
den. Strukturieren Sie Ihr Problem neu, und schreiben Sie kurze 
FORTH-Wörter , die ihrerseits andere Wörter rufen. 

Die meisten FORTH-Systeme verwalten keine Inhaltsverzeichnisse 
für Disketten. In manchem System findet sich jedoch ein Wort, mit 
dem man herausfinden kann, welche Information in den einzelnen 
Blöcken gespeichert sind; es lautet INDEX. Hier ein Beispiel für 
seine Anwendung: 

50 20 INDEX (RETURN) ( 8 - 8 ) 


Damit sorgen wir dafür, daß jeweils die erste Zeile von 20 Blök- 
ken aufgelistet wird, wobei dieser Vorgang mit Block 50 beginnt. 
Da es guter Programmierstil ist, in jedem Block am Anfang einen 
Kommentar zu schreiben, der die Funktion der darin enthaltenen 
Anweisungen schildert, kann man mit INDEX Aufschluß über die auf 
der Diskette gespeicherten Blöcke erhalten. Außerdem können Sie 
so ausfindig machen, welche Diskettenblöcke leer sind und für die 
Speicherung neuer Programme herangezogen werden können. Hier lau 
tet die Stack-Relation folgendermaßen: 
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n . . n „ — > 

1 z 


(8-9) 


•ic den Diskettenblöcken sind wir jetzt vertraut; es wird also 
let t, sich die Organisation und Informationen auf Diskette anzu- 
senen und zu erfahren, nach welcher Methode Blocknununern vergeben 
•erden. Wir beschränken uns hier auf Informationen über die Dis- 
terrenspeicherung, die in unserem Zusammenhang relevant sind. Die 
angegebenen Zahlen sind typische Werte für kleine Disketten- 
rysceme. Die dargestellten Prinzipien gelten jedoch auch für 
größere Systeme und können auf diese übertragen werden. Daten 
•erden auf Disketten in sog. Spuren gespeichert. Einige Laufwerke 
arbeiten mit 35 Spuren, während andere 40 oder sogar 80 Spuren 
a_Iweisen. Für unsere Erörterungen wollen wir annehmen, daß die 
Laufwerke des Systems über 40 Spuren verfügen. ' Die Spuren einer 
Iiskette sind als konzentrische Ringe über den Datenträger ver 
teilt und ihrerseits wieder in kleinere Einheiten, die sog. 
Rektoren , unterteilt . Die Anzahl Sektoren pro Spur wird von der 
Aufzeichnungstechnik bestimmt, mit der das jeweilige System ar- 
teitet. Wir gehen davon aus, daß unser hypothetisches Laufwerksy- 
stem 10 Sektoren pro Spur schreibt. Typischerweise können in 
einem Diskettensektor 256 Byte gespeichert werden. Der Sektor ist 
die kleinste logische Einheit auf einer Diskette. Um einen Block 
-r. FORTH zu speichern, werden somit 4 Sektoren benötigt. Auf den 
■^eisten Diskettensystemen sind einige Diskettensektoren reser 
viert, da in ihnen ein Urladeprogramm für das "Hochfahren" des 
Systems gespeichert ist. Die Einzelheiten dieses Programms brau 
chen uns hier nicht zu beschäftigen; wir gehen lediglich davon 

aus, daß unser hypothetisches System zwei Sektoren für den Ur 

lader reserviert. 

Fassen wir noch einmal zusammen: Wir stellen uns ein Diskettensy 

stem mit 40 Spuren zu 10 Sektoren vor, so daß auf einer Diskette 

39 Blöcke gespeichert werden können. Die Diskette verfügt über 

insgesamt 400 Sektoren. Zwei Sektoren gehen für den Urlader ab, 
so daß auf der Diskette insgesamt 398 Sektoren verwendet werden 
(denn 99 Blöcke belegen 99x4= 396 Sektoren) . Die verbleibenden 

beiden Sektoren auf der Diskette bleiben ungenutzt. Jetzt nehmen 
wir weiter an, daß wir mit mehr als einem Laufwerk arbeiten. Die 

meisten FORTH-Systeme vergeben fortlaufende Blocknummern. Es 
können sich nun zwei Disketten, eine in Laufwerk 0 (oder A) und 
eine in Laufwerk 1 (oder B) befinden. (Beachten Sie, daß der er 

ste Sektor in der ersten Spur vom ersten Laufwerk die Nummer 0 

erhält.) Der Block mit der Nummer 98 ist der letzte Block, der 
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auf der Diskette in Laufwerk 0 (oder A) gespeichert werden kann. 
Entsprechend wird der Block mit der Nummer 99 der erste Block auf 
Laufwerk 1 (oder B) sein. Die Nummer eines Blockes hängt also 
auch davon ab, auf welchem Laufwerk er sich befindet. Angenommen, 
ein bestimmter Block ist der 61ste auf seiner Diskette. Wenn Sie 
diese Diskette nun in Laufwerk 0 legen, dann erhält der fragliche 
Block die Nummer 60. Sollte sich hingegen die Diskette im zweiten 
Laufwerk (Laufwerk 1) befinden, dann ist die Blocknummer für 
diesen Block gleich 159. Da die Blöcke bei 0 beginnend durchnume 
riert werden, trägt der 61ste Block die Blocknummer 60. 

Wir wollen die eben besprochenen Informationen an einem kleinen 
Programm vertiefen, das ein Disketteninhaltsverzeichnis ausgibt . 
Wir wollen annehmen, daß auf jeder Diskette eine Kopie dieses 
Programms vorhanden ist. Es wäre z.B. günstig, das Programm auf 
jeder Diskette im 61sten Block (Nummer 60) abzuspeichern. Ist die 
Diskette im Laufwerk 0, dann können wir das Programm laden, indem 
wir uns den Block 60 holen; ist sie in Laufwerk 1, so müssen wir 
Block 159 ansprechen. Nach Laden des Programms können Sie sich 
ein Inhaltsverzeichnis der Programme auf Ihrer Diskette anzeigen 
lassen, indem Sie den Befehl DIRECTORY eingeben. Sie sehen dann 
auf Ihrem Bildschirm die Namen der einzelnen Programme, die sich 
auf der Diskette befinden. Um eines dieser Programme zu laden, 
geben Sie dann lediglich den Namen des Programms ein und drücken 
die Return-Taste. Das Wort sorgt dann selbst dafür, daß das von 
Ihnen gewählte Programm geladen und die Anfangsblocknummer in der 
Variablen SCR abgelegt wird; Sie können es somit edieren und 
auf listen . 

Wenden Sie Sich nun der Abbildung 8-1 zu, in der Sie ein Listing 
des fraglichen Programms sehen. In Zeile 1 wird ein Wort DRIVNO 
definiert, das den Benutzer fragt, in welchem Laufwerk sich die 
Diskette befindet. Der Benutzer antwortet mit einer Zahl, die von 
dem Wort DRIVNO auf den Stack gelegt wird. In unserem Beispiel 
Programm nehmen wir an, daß die Diskette drei Programme enthält, 
wobei das Programm mit dem Namen FACTORIAL im Block Nummer 20 
gespeichert ist, FACTREAL im Block 21 abgelegt und ALPHA im Block 
46 und 47 zu finden ist. In Zeile 2 wird nun zuerst das Wort 
FACTORIAL definiert. Es ruft als erstes DRVNO und besorgt sich so 
auf dem Stack die Nummer des richtigen Laufwerks. Aus dieser Num 
mer erzeugen wir durch Multiplikation und Addition die Nummer des 
gewünschten Blockes, welche wir duplizieren. Die erste Kopie der 
Blocknummer speichern wir in der Variablen SCR, wodurch die 
Möglichkeit zum Bearbeiten des Programms gesichert ist; mit der 
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0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

1 1 


Ein einfaches Disketten-Inhaltsverzeichnis ) 
DRVNO . " BITTE LAUFWERKSNUMMER EINGEBEN " #IN 


FACTORIAL 

DRVNO 

99 

★ 

20 

+ 

DUP SCR ! 

LOAD ; 

FACTREAL 

DRVNO 

99 


21 

+ 

DUP SCR ! 

LOAD ; 

ALPHA 

DRVNO 

99 * 

46 

+ 

DUP 

SCR ! DUP 


LOAD 1+ LOAD ; 






DIRECTORY 

CR . " 

FACTORIAL 


FACTREAL 

ALPHA 


ABBILDUNG 8—1: Ein einfaches Inhaltsverzeichnis 


zweiten Kopie laden wir den Block, der die eigentliche Programm 
definition enthält. Wir haben so das gewünschte Ergebnis erzielt. 
Das Wort in Zeile 3 der Abbildung 8-1 führt im wesentlichen die 
selben Verarbeitungsschritte aus. Zeile 4 zeigt die Definition 
des FORTH-Wortes ALPHA. Nun haben wir ja vereinbart, daß das Wort 
ALPHA in zwei Blöcke gespeichert ist; deshalb muß die Definition 
der Zeile 4 auch dafür sorgen, daß zwei Blöcke geladen werden. 
ALPHA unterscheidet sich von den beiden anderen Wörtern haupt 
sächlich dadurch, daß vor dem ersten Ladevorgang die Blocknummer 
dupliziert wird; nach Abschluß des Ladens steht sie also noch auf 
dem Stack, kann um 1 erhöht und für den nächsten Ladevorgang 

herangezogen werden. ALPHA sorgt so dafür, daß die beiden richti 
gen Blöcke geladen werden und zur Editierung bereitstehen . 

In Zeile 10 sehen Sie die Definition des Wortes, mit dem das 
Inhaltsverzeichnis aufgelistet werden kann; es heißt DIRECTORY. 

Dieses Wort tut nichts anderes, als die Namen aller Programme 
auszugeben. Unser Inhaltsverzeichnisprogramm funktioniert also 
wie gewünscht, wenngleich es noch sehr primitiv ist. Jedesmal, 

wenn Sie ein neues Programm auf Ihrer Diskette abspeichern wol 
len, dann müssen Sie das Programm für das Inhaltsverzeichnis auch 
ändern. Wenn wir ein "ausgewachsenes" Betriebssystem schreiben 
würden, dann müßten all diese Aufgaben automatisch vom System 
erledigt werden. 

Zwei weitere FORTH-Kommandos haben mit der Verarbeitung von Blök- 
ken und Blockpuffern zu tun. Das erste lautet BLOCK. Hier ein 

typisches Anwendungsbeispiel für dieses Wort: 
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132 BLOCK 


( 8 - 10 ) 


In diesem Fall wird die Zahl 123 vom Stack entfernt und dann der 
Block mit der Nummer 123 von den entsprechenden vier Disketten 
Sektoren in einen Blockpuffer im Arbeitsspeicher geladen. Als 
Resultat legt BLOCK weiterhin noch die Anfangsadresse des Puffers 
auf den Stack. Diese Adresse benötigt das FORTH-System, um den 
Puffer verwalten zu können. Auch Sie können sie dazu benutzen, um 
Daten zu speichern. Wir haben für BLOCK folgende Stack-Relation: 


n — > a ( 8-1 1 ) 

Ein weiteres, im Zusammenhang mit Ein-/Ausgaben benötigtes Wort, 
lautet BUFFER. Hier ein Anwendungsbeispiel: 

123 BUFFER ( 8 - 12 ) 


Dieses Beispiel sorgt dafür, daß die Zahl 123 vom Stack entfernt 
und daraufhin 1024 Byte aus dem Arbeitsspeicher als Arbeitspuffer 
für Block 123 zugewiesen werden. Die Anfangsadresse dieses Block 
puffers wird auf den Stack gelegt . Das Wort BUFFER arbeitet also 
ähnlich wie BLOCK. Der Unterschied besteht darin, daß ein Aufruf 
von BUFFER noch keine Information von der Diskette liest. BUFFER 
dient somit nur dazu, einen Speicherpuffer für nachfolgende Dis 
kettenoperationen zu reservieren. Die Stack-Relation für BUFFER 
sehen Sie ebenfalls in (8-11) . 


8.2 Datenorganisation auf Disketten 


Wir werden jetzt darlegen, wie Daten auf Diskette gespeichert und 
dort wiedergefunden werden. Während der Ausführung eines Pro 
gramms kommen oft Diskettenzugriffe vor. Einige der hierfür ir. 
unserem Buch vorgestellten Wörter finden sich nicht in FORTH-79. 
Sie sind jedoch Bestandteil von MMSFORTH; weiterhin verfügen 
viele andere FORTH-Systeme über ähnliche Befehle. 


282 



8 Diskettenoperationen 


DWTSECS und DRDSECS - Mit diesen beiden Wörtern kann man in FORTH 
Informationen auf die Diskette schreiben bzw. davon lesen. Sie 
sind kein Bestandteil von FORTH-79, lassen sich jedoch sehr be 
quem handhaben. 

Mit dem Wort DWTSECS kann man Daten auf Diskette schreiben. Hier 
ein typisches Anwendungsbeispiel : 

NUMB 1 23 8 2 DWTSECS (8-13) 


Sei diesem Beispiel nehmen wir an, daß NUMB eine Array-Variable 

ist. Das Beispiel (8-13) sorgt dafür, daß die Information im 

Arbeitsspeicher, die bei der Adresse von NUMB beginnt, auf die 

Diskette geschrieben wird. Die Daten werden auf der Diskette im 
Laufwerk 1 gespeichert. Insgesamt zwei Sektoren werden geschrie 
ben, wobei mit Sektor 8 der Spur 23 begonnen wird. (Denken sie 

daran, daß die Numerierung von Laufwerken, Spuren und Sektoren 
jeweils mit 0 beginnt.) Da ein Sektor 256 Byte aufnehmen kann, 
bedeutet dies, daß 512 Byte aus dem Arbeitsspeicher gelesen und 

auf Diskette gespeichert werden. Wenn Sie sich des Wortes DWTSECS 
bedienen, dann spielt es keine Rolle, welche Art von Informatio 
nen im Speicher befindlich ist; das Wort schreibt einfach eine 
zusammenhängende Folge von Bytes auf Diskette, ohne sich um den 

Datentyp der so gespeicherten Information zu kümmern. So braucht 
NUMB beispielsweise nicht unbedingt ein Array zu sein; ebensogut 

könnte es sich dabei um eine Variable handeln, in der eine ein 
fach genaue Integer gespeichert ist. Trotzdem werden bei Ausfüh 
rung von (8-13) 512 aufeinanderfolgende Bytes, beginnend bei der 
Adresse NUMB, auf Diskette kopiert . Das Wort hat folgende Stack- 

Relation : 


1 n 2 n 3 n 4 


-> n 


f lag 


(8-14) 


Hierbei steht n A für die Laufwerksnummer, n A für die Spur, n A für 
die Sektornummer auf der Spur und n A für die Anzahl der Sektoren, 
die übertragen werden sollen. Das Wort hinterläßt ein Flag auf 
dem Stack. Damit wird dem Benutzer oder anderen Wörtern signali 
siert, ob die Kopieroperation erfolgreich war. Bei der Ein-/ 
Ausgabe von Daten auf Disketten können nämlich Schreib- oder 
Lesefehler auftreten. Das FORTH-System überprüft zuerst, ob die 
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Datenübertragung fehlerfrei vonstatten gegangen ist und legt in 
diesem Fall eine 0 auf den Stack. Wie bereits bei anderen Bei 
spielen steht diese für den Wahrheitswert "falsch". Sollten bei 
der Datenübertragung Fehler aufgetreten sein, so legt DWTSECS 
hingegen den Wahrheitswert "wahr" als Flag auf den Stack. Sie 
können in einem Programm dieses Flag dazu benutzen, die Ein- 
/Ausgabeoperationen abzubrechen, zu wiederholen oder irgendwelche 
anderen Aktionen einzuleiten, die Ihnen sinnvoll erscheinen. 

Den umgekehrten Vorgang, nämlich das Lesen von Daten von Diskette 
in den Arbeitsspeicher, löst man mit DRDSECS aus. In seiner Ar 
beitsweise ähnelt es sehr DWTSECS. So bewirkt z.B. 

NUMB1 1 23 8 2 DRDSECS (8-15) 


daß die Information, die sich im Laufwerk 1 auf Spur 23 in den 
Sektoren 8 bis 9 befindet, in den Arbeitsspeicher übertragen und 
dabei mit der Adresse NUMB begonnen wird. Führen wir nacheinander 
zuerst (8-13) und dann (8-15) aus, dann werden 512 Datenbyte aus 
dem Arbeitsspeicher auf die Diskette übertragen und anschließend 
sofort wieder von der Diskette in den Arbeitsspeicher kopiert. 

Die beiden Wörter DWTSECS und DRDSECS übertragen stets ganzzah 
lige Vielfache von 256 Byte. Nun liegt nicht immer die Situation 
vor, daß wir genau 256 Byte oder ein Vielfaches davon speichern 
wollen. In diesem Fall bleibt uns jedoch nichts anderes übrig, 
als überschüssige Bytes mit abzuspeichern. In der Abbildung 8-2 
werden die bisher besprochenen Wörter noch einmal vorgeführt. 
Dieses einfache Programm kann numerische Daten auf Diskette 
schreiben und anschließend wieder davon lesen. Wir vereinbaren 
für diesen Zweck zwei Arrays mit dem Namen NUMB und NUMB1 . Das 
selbstdefinierte Wort INPUT beginnt in Zeile 2. Rufen wir es, so 
werden nacheinander die Zahlen 3, 6, 9, 12, ... , 597 im Array 

NUMB gespeichert. Wie Sie leicht überprüfen können, speichert der 
Array somit mehr als 256, aber weniger als 512 Byte. Das Wort für 
die Diskettenausgabe heißt DISKWRITE und beginnt in Zeile 4; es 
schreibt 512 Byte auf die Sektoren 8 und 9 von Spur 23 der Dis 
kette im Laufwerk 1 . Mit der Bytesübertragung wird dabei an der 
Adresse begonnen, die durch NUMB angegeben ist . Das Auftreten 
eines Schreibfehlers wird durch die Kombination aus IF und THEN 
in Zeile 5 abgefangen. In diesem Fall geben wir die Meldung "DISK 
ERROR" auf dem Bildschirm aus und brechen das Programm ab. Unser 
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0 ( Beispiel zur Disketten-Ein-/-Ausgabe ) 

1 VARIABLE NUMB 512 ALLOT VARIABLE NUMB1 512 ALLOT 


2 : 
r> 

INPUT 

200 

0 

DO I 3 * 

NUMB I 2 * 

j 

4 :: 

DISKWRITE 

NUMB 

1 

23 8 2 DWTSECS 

5 

© 


IF 

• 

" DISK ERROR" 

QUIT THEN 

7 :: 

DISKREAD 

NUMB1 


1 23 8 2 

DRDSECS 

\d 00 


IF 

• 

" DISK ERROR" 

QUIT THEN ; 

1 0 :: 

1 1 
1 2 

OUTPUT 

200 

0 

DO NUMB1 2 

I * +0 


! LOOP ; 


" " LOOP ; 


ABBILDUNG 8-2: Ein- und Ausgabe von Daten auf Diskette 


Wort INPUT hat zwar nur 400 Byte des Arrays NUMB beschrieben; 
dennoch werden, beginnend bei NUMB, insgesamt 512 Byte auf Dis 
kette übertragen. Die Anzahl der übertragenen Daten ist also un 
abhängig von der Größe des Arrays, mit dem wir gearbeitet haben. 

In Zeile 7 beginnt die Definition von DISKREAD, welches 512 Byte 
von der Diskette in Laufwerk 1 liest und dabei die Sektoren 8 und 
9 der Spur 23 heranzieht. Die übertragene Information wird im Ar 
beitsspeicher des Computers, beginnend bei der Adresse NUMB1, ab 
gelegt. Wieder fangen wir einen eventuellen Ausgabefehler ab, wo 
bei wir das Programm nach einer Fehlermeldung beenden. Jetzt 
fehlt noch ein Wort, mit dem wir die eingelesenen Daten anzeigen 
können; dies bewirkt die Definition von OUTPUT, die in Zeile 10 
zu finden ist. Sie können somit überprüfen, ob die beiden Wörter 
DISKWRITE und DISKREAD richtig funktionieren. 

Bei der Ausgabe der Daten auf Disketten haben wir einige Bytes 
mit übertragen, deren Inhalt uns gar nicht bekannt ist . Dies 
kommt daher, daß bei Disketten-Ein- und -Ausgabe immer nur 256 
Byte oder ein ganzzahliges Vielfaches davon übertragen werden 
kann. In der Regel verursachen solche überschüssigen Bytes keine 
Probleme bei der Programmierung. 
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8.3 Eingabe von Textmaterial 


Mit den bisher besprochenen Möglichkeiten kann ebensogut Textma 
terial gespeichert werden; genaugenommen sind diese Verfahren auf 
keinen bestimmten Datentyp beschränkt. Wie wir jedoch erwähnten, 
sind DWTSECS und DRDSECS nicht Bestandteil von FORTH-79. Wir 
stellen deshalb an dieser Stelle noch einige FORTH-7 9-Bef ehle 
vor, mit denen Textmaterial aus einem Diskettenblock gelesen 
werden kann. Einige der Kommandos, die wir bereits aus Kapitel 7 
kennen, können hier ebenfalls verwendet werden. So kennen wir 
z.B. aus Abbildung 7-4 bereits die Wörter BLK* >IN und WORD. 
Befindet sich vor Ausführung von BLK eine andere Zahl als 0 auf 
dem Stack, dann kommen die Daten nicht von der Tastatur, sondern 
von einem Diskettenblock. Die Nummer des Diskettenblockes ent 
spricht dabei der Zahl, die BLK auf dem Stack vorfindet. 

Es ist natürlich stets möglich, Textmaterial in einen Disketten 
block über den Editor einzugeben. Dies funktioniert genauso, wie 
wir Programme eingeben. Mit diesen Daten können wir dann die Ver 
fahren anwenden, die wir in den letzten Abschnitten kennengelernt 
haben. Weiterhin stehen uns noch einige Wörter in FORTH-79 zur 
Verfügung . 

TYPE - Mit diesem FORTH-Wort kann man eine bestimmte Anzahl Zei 
chen ausgeben. Wenn wir eingeben: 

34500 60 TYPE 

dann werden damit 60 Zeichen ausgegeben. Die ausgegebenen Zeichen 
befinden sich an den Adressen 34500 bis 34599 einschließlich. 
Beachten Sie, daß TYPE nicht unmittelbar mit Diskettenausgabe zu 
tun hat; vielmehr sollten wir es dann einsetzen, wenn wir Textma 
terial auf den Bildschirm bekommen wollen, das in einem Blockpuf 
fer gespeichert ist. Die Stack-Relation lautet: 


a 


n -> 


(8-16) 


COUNT - Ehe wir zeigen, wie man mit TYPE Textmaterial aus einem 
Blockpuffer ausgeben kann, wollen wir uns einem anderen FORTH- 
Wort, nämlich COUNT, zuwenden. Angenommen, in der Variablen SENT 
ist ein String gespeichert. Üblicherweise findet man in den er 
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sten beiden Bytes dieser Variablen eine Integer, die die Länge 
des Strings angibt. Wir gehen davon aus, daß der String höchstens 
64 Byte lang ist und zur Speicherung seiner Länge eine vorzei 
chenlose ein Bytes lange Zahl benötigt wird. Wenn wir nun SENT 
rufen, dann ist die auf den Stack gelegte Adresse nicht ausrei 
chend, um von TYPE verarbeitet zu werden, da ja das erste Bytes 
eine Integer enthält. Diesem Umstand tragen wir Rechnung, indem 
wir die Zahl auf dem Stack einfach um eins erhöhen und anschlie 
ßend noch eine Zahl auf den Stack pushen, die der Anzahl auszuge 
bender Zeichen entspricht. Wir erhalten also das gewünschte Er 
gebnis mit folgenden Wörtern: 


SENT 1+ SENT C§ TYPE 


(8-17) 


Dies sorgt dafür, daß sich vor dem Aufruf von TYPE sowohl die 
Anfangsadresse des Strings als auch seine Länge auf dem Stack 
befinden. Mittels C§ legen wir die Zahl als einfach genaue Inte 
ger auf den Stack. Die einzelnen Verarbeitungsschritte von (8—17) 
kann man jedoch auch mit einem einzigen FORTH-Wort bewirken. Es 
lautet COUNT. Anstelle von (8-17) schreiben wir also einfach: 

SENT COUNT TYPE (8-18) 


Eine eigene Definition von COUNT würde etwa folgendermaßen lau 
ten : 


: COUNT DUP 1+ SWAP C@ ; (8-19) 


Wenden wir uns nun dem einfachen Programm in der Abbildung 8-3 
zu, welches den Einsatz von TYPE für die Ausgabe von Textmaterial 
aus einem Speicherblock illustriert . 

Das Beispiel bringt die Meldung DIESES PROGRAMM DRUCKT "DIESES 
PROGRAMM" auf den Bildschirm, an welche sich die Zeichenfolge 
DIESES PROGRAMM anschließt. In Zeile 1 sehen wir einen Teil des 
auszugebenden Texts in Klammern. Die Klammern sorgen dafür, daß 
beim Laden des Blockes die darin stehende Information weder com- 
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0 (Textausgabe mittels TYPE) 

1 (DIESES PROGRAMM DRUCKT "DIESES PROGRAMM") 

2 : TEST CR CR 155 BLOCK 66 + 41 TYPE CR CR 

3 DIESES PROGRAMM" CR CR ; 

4 

5 

6 


ABBILDUNG 8-3: Ein einfaches Programmbeispiel zu TYPE 


piliert noch ausgeführt wird. Wenn sich der Text auf einem sepa 
raten Block befindet, der nicht compiliert wird, dann wären die 
Klammern unnötig. Wir gehen davon aus, daß sich das Programm in 
Block 155 befindet. Wenn nun in Zeile 2 BLOCK gerufen wird, dann 
wird Block 155 in einen Speicherpuffer geladen und die Anfangsad 
resse des Puffers auf den Stack gelegt. Der Text, den wir ausge 
ben wollen, befindet sich in der ersten Zeile des Blockes. Jede 

Zeile eines Puffers enthält genau 64 Zeichen einschließlich Leer 
Zeichen. Das Wort DIESES beginnt in der dritten Zeichenposition 

der zweiten Zeile. Somit ist der Buchstabe D das 67ste Zeichen im 
Puffer. Dies ist der Grund, weswegen wir die Anfangsadresse des 
Puffers, die wir über BLOCK erhalten, um 66 erhöhen. Der auszuge 
bende Text ist insgesamt 41 Zeichen lang. Deshalb legen wir auch 
die Zahl 41 auf den Stack. Wird nun das Wort TYPE gerufen, dann 

liest es den gewünschten Text aus dem Puffer und gibt ihn aus. 
Den Rest der Meldung geben wir über das bereits bekannte FORTH- 

Kommando .a'üs . Mit den soeben eingeführten Methoden kann jeder 
auf Diskette gespeicherte Text ausgegeben werden. 


8 . 4 Übungsaufgaben 


Überprüfen Sie alle FORTH-Wörter oder Programme, die Sie in den 
folgenden Aufgaben schreiben, indem Sie sie auf Ihrem Computer 
laufen lassen. Halten Sie die einzelnen Wörter möglichst kurz. 
Programmieren Sie modular, indem Sie Teilaufgaben an Unterwörter 
delegieren . 

8-1 Erörtern Sie die Prinzipien der Diskettenspeicherung. 


8-2 Was ist ein Block? 



8 Diskettenoperationen 


8-3 Worin besteht der Unterschied zwischen einem Blockpuffer und 
einem Diskettenblock? 

8-4 Schreiben Sie ein FORTH-Wort, das automatisch den gerade in 
Arbeit befindlichen Block lädt, wenn Sie den Befehl LD ein 
geben . 

8-5 Probieren Sie die Wörter EMPTY-BUFFERS , SAVE-BUFFERS, FLUSH 
und UPDATE aus, um hinter ihre Funktionsweise zu kommen. 

8-6 Worin besteht der Unterschied zwischen EDIT und E? 

8-7 Was ist der Unterschied zwischen den Wörtern LIST und L? 

8-8 Finden Sie heraus, wie LOADS in Ihrem System funktioniert. 

8-9 Beschaffen Sie sich über das FORTH-Wort INDEX ein Listing 
der Programme, die auf Ihrer Diskette gespeichert sind. Dies 
setzt natürlich voraus, daß die erste Zeile eines Blockes 
die entsprechende Information enthält . 

8-10 Ändern Sie das Programm der Abbildung 8-1 so ab, daß die 
Programme erst geladen werden, wenn der Benutzer das richti 
ge Passwort eingibt. 

8-11 Schreiben Sie ein FORTH-Wort, das ähnlich wie in Programm 

8-1 Informationen über das Inhaltsverzeichnis einer Diskette 
liefert, wenn ihm für ein Programm folgende Informationen 
zur Verfügung stehen: sein Name, der Anfangsblock und die 

Anzahl der zu ladenden Blöcke. 

8-12 Ändern Sie das Programm von Aufgabe 6-16 so, daß alle Ausga 
ben auf Diskette gehen. 

8-13 Ändern Sie das Programm von Aufgabe 8-12 so, daß die Einga 
bedaten in einem Array gespeichert werden. 

8-14 Schreiben Sie ein Programm, das die Fakultät der ersten fünf 
Zahlen berechnet und in einem Array speichert . 

8-15 Wiederholen Sie Aufgabe 8-14 mit doppelt genauen Integers . 
Berechnen Sie die Fakultät der ersten neun Zahlen. 

8-16 Wiederholen Sie Aufgabe 8-15 mit Gleitpunktzahlen . 
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8-17 Wiederholen Sie Aufgabe 8-15 mit doppelt genauen Gleitpunkt 
zahlen . 

8-18 Geben Sie mittels COUNT und TYPE einen String aus, der sich 
im Arbeitsspeicher befindet. 

8-19 Wiederholen Sie Aufgabe 8-14, und drucken Sie diesmal mit 
tels TYPE die passende Überschrift. 

8-20 Speichern Sie Textmaterial auf einem Diskettenblock, und 
lassen Sie es dann satzweise ausgeben. 
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9 Einige weitere FORTH-Operationen 


Dieses Kapitel bespricht einige zusätzliche FORTH-Wörter . Diese 
betreffen die Compilation und die Arbeitsweise des FORTH-Systems 
selbst. Kenntnisse dieser Wörter kommen Ihren Programmiertechni 
ken und einem vertieften Verständnis von FORTH zugute. 


9 . 1 Compilersteuerung 


In diesem Abschnitt erörtern wir einige FORTH-Wörter, die die 
Arbeitsweise des Compilers beeinflussen. Bei allen bisherigen 
FORTH-Wörtern geschah folgendes: Während der Compilierung wird 

das Wort im Wörterbuch abgelegt und kann anschließend aufgerufen 
werden. Wenn ein Wort andere Wörter ruft, dann läuft im wesentli 
chen derselbe Vorgang ab. Nach der Compilierung enthält der Wör 
terbucheintrag des aufrufenden Wortes die Adresse des Wortes, das 
gerufen wird. Dadurch können "Unterwörter" als Teil des Abar 
beitungsprozesses eines übergeordneten Wortes aufgerufen werden. 
Betrachten Sie dazu das Beispiel der Abbildung 7-5. Wir definie 
ren darin die Wörter ALPHA, ALPHAIN und ALPHAOUT. Beim Laden des 
Blockes wird jedes dieser einzelnen Wörter compiliert und ins 
Wörterbuch eingetragen. Rufen wir nun das Wort ALPHA, so werden 
sowohl ALPHAIN als auch ALPHAOUT gerufen und ausgeführt. In FORTH 
gibt es jedoch einige Wörter, mit denen dieses allgemeine Schema 
abgeändert werden kann. 

IMMEDIATE - Mit diesem FORTH-Wort kann man bewirken, daß ein an 
deres Wort während der Compilierung ausgeführt wird. Wie das 
geht, können Sie der Abbildung 9-1 entnehmen. Nehmen wir für den 
Augenblick einmal an, daß nur die Zeilen 1 und 2 in der Defi 
nition gegeben sind. Wenn wir den Block der Abbildung 9-1 laden, 
dann erscheint die Meldung "DRUCKE DAS" auf dem Bildschirm. 

Diese Meldung erscheint, während der Block compiliert wird. Al 
lerdings wird sie nicht durch die Compilation der ersten Zeile 
hervorgerufen. Der Compiler merkt sich lediglich beim Laden, daß 
für das Wort TEST der Status "IMMEDIATE" (deutsch "unmittelbar") 
vereinbart wurde. Als nächstes übersetzt er TEST1 und trifft da 
rin auf das Wort TEST; er weiß, daß es sich dabei um ein Wort mit 
dem Status "IMMEDIATE" handelt, weswegen nicht einfach die Adres- 
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0 ( Beispiel fuer Compilerworte ) 


1 

: TEST 

. " DRUCKE 

DAS " 

IMMEDIATE 

2 

: TEST1 

. M EINS " 

TEST ; 


3 

: TEST2 

ZWEI ■ 

1 


4 

TEST3 

DREI • 

[COMPILE] 

TEST ; 

5 

: TEST4 

. -VIER 

-TEST ; 


6 

: : TEST5 

. " FUENF 

- COMPILE 

TEST2 ; IMMEDIATE 

7 

: TEST 6 

SECHS 

- TEST5 

1 


8 

9 

ABBILDUNG 9—1: Beispiele zur Compilersteuerung 

se von TEST in die Definition von TEST1 aufgenommen wird. Viel 

mehr wird das Wort TEST unmittelbar ausgeführt. Wenn wir jedoch 
nach vollständiger Compilation das Wort TEST1 rufen, dann gelangt 
TEST nicht zur Ausführung. Ein Aufruf von TEST1 bringt nicht die 
Meldung "DRUCKE DAS" auf den Bildschirm. Anders bei Eingeben von 
TEST (RETURN); in diesem Fall sehen wir die fragliche Meldung. 
Das bedeutet: Ist ein Wort mit dem Status "immediate" Teil der 

Definition eines anderen Wortes, dann wird dieses nicht ausge 
führt, wenn das übergeordnete Wort gerufen wird. Wir verleihen 
einem Wort diesen Status, indem wir IMMEDIATE unmittelbar an den 
Strichpunkt der Definition anschließen. 

[COMPILE] - Gelegentl ich wollen wir ein Wort mit dem Status 

"immediate" in einem anderen FORTH-Wort verwenden, wobei es sich 
aber so verhalten soll, als wäre es ein gewöhnliches FORTH-Wort. 
Dies erreicht man mit dem Kommando [COMPILE] . Abbildung 9-1 gibt 
auch dafür ein Anwendungsbeispiel. Wir sehen, daß innerhalb der 
Definition von TEST3 das Kommando [COMPILE] auftaucht. Es steht 
in diesem Fall unmittelbar vor dem FORTH-Wort, auf das es sich 
beziehen soll. Wenn nun das Wort TEST3 der Abbildung 9-1 compi- 
liert wird, dann verhält sich der Compiler so, als hätte TEST 

nicht den Status "immediate". Beim Laden des Blockes der Abbil 

düng 9-1 verursacht also die Compilierung von TEST3 nicht, daß 
die Meldung "DRUCKE DAS" erscheint. Das bedeutet also, daß ein 
Wort mit dem Status "immediate" nicht als ein solches behandelt 
wird, wenn ihm das Kommando [COMPILE] vorausgeht . 

COMPILE - Wie wir jetzt wissen, wird ein Wort mit dem Status 
"immediate" ignoriert, wenn es in einem anderen Wort eingeschlos 
sen ist und dieses compiliert wird. Das " immediate "-Wort wird in 
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den Wörterbucheintrag des umgebenden "äußeren" Wortes nicht mit 
aufgenommen. Sollte man dies jedoch wünschen, dann gibt es dafür 
einen speziellen Befehl, der dafür sorgt, daß "immediate"-Wörter 

auch in den Wörterbucheintrag anderer Wörter zur Compilezeit mit 
aufgenommen werden. Betrachten Sie dazu die Zeilen 3, 6 und 7 der 

Abbildung 9-1. Innerhalb der Definition von TEST6 kommt das Wort 
TEST5 vor, welches den Status "immediate" hat. Normalerweise 
würde bei einem Aufruf von TESTS das darin enthaltene TEST5 

keinerlei Auswirkungen auf den Programmablauf haben. In TESTS ist 
wiederum das Wort TEST2 enthalten, bei dem es sich um ein norma 
les Wort handelt. Unmittelbar vor dem Vorkommnis von TEST2 inner 
halb von TEST5 finden wir nun das neue FORTH-Wort COMPILE. Wird 
nun TESTS innerhalb eines anderen Wortes compiliert, dann behan 
delt der Compiler TEST2 so, als wäre es Teil eines gewöhnlichen 
Wortes und nicht eines mit dem Status "immediate". Die verblei 

benden, in der Definition von TEST5 noch enthaltenen Wörter 
werden jedoch so behandelt, wie es bei einem "immediate "-Wort 
üblich ist. Es wird also beispielsweise bei der Compilierung von 
TEST6 die Meldung "FUENF" ausgegeben. Wird anschließend das Wort 
TEST6 gerufen, dann sieht man hingegen die Meldung "SECHS ZWEI". 
Wäre nun innerhalb von TESTS das Wort COMPILE nicht enthalten, 
dann hätte TEST2 keinerlei Auswirkung auf die Arbeitsweise von 

TEST6 . Wird TEST5 selbst ausgeführt, dann wird TEST2 übergangen. 
Das bedeutet, daß das hinter COMPILE stehende Wort nicht ausge 
führt wird, wenn das umschließende Wort gerufen wird. Rufen wir 
ein Wort, in dessen Definition der Befehl COMPILE enthalten ist, 
dann wird die Adresse des darauffolgenden Wortes mit in das 
Wörterbuch übernommen, so daß es ausgeführt werden kann. 

Sehen wir uns noch einmal im einzelnen an, was beim Laden des 
Blockes der Abbildung 1-1 passiert. Die Compilierung von TEST1 
bewirkt, daß die Meldung "DRUCKE DAS" ausgegeben wird. Eben diese 
Meldung wird auch ausgegeben, wenn der Compiler TEST4 übersetzt. 
Schließlich sehen wir noch die Meldung "FUENF", wenn der Compiler 
auf TEST6 stößt . 

Sehen wir uns nun an, was bei Ausführung der einzelnen Wörter in 
Abbildung 9-1 geschieht. Rufen wir TEST, dann erhalten wir die 
Meldung "DRUCKE DAS". Bei Ausführung von TEST1 sehen wir auf dem 
Bildschirm die Meldung "EINS". Da TEST ein "immediate "-Wort ist, 
hat es hier keinerlei Auswirkungen. TEST2 ist wieder ein ganz 
normales Wort, es bringt die Zeichenfolge "ZWEI" auf den Bild 
schirm. Rufen wir TEST3, so sehen wir "DREI DRUCKE DAS". Das Kom 
mando [COMPILE] sorgt dafür, daß TEST mit in dieses Wort com- 
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piliert wurde. Das Wort in Zeile 5, TEST4, bringt nur die Meldung 
"VIER", da hier TEST unverändert seinen Status als " irranediate " 
beibehält. Ebenfalls sehen wir bei Ausführung von TESTS lediglich 
die Meldung "FUENF". Hier sorgt COMPILE dafür, daß von einer 
Ausführung von TEST2 abgesehen wird. Andererseits wird TEST2 in 
nerhalb von TEST5 aktiv, wenn TEST5 von einem anderen Wort geru 
fen wird. Diese Situation haben wir in TEST6, welches deswegen 
auch die Zeichenfolge "SECHS ZWEI" ausgibt. 

LITERAL, [ und ] - Oft ist es nützlich, in einem Programm den 
Anfangswert einer Variablen längere Zeit zu benutzen. Nun kann 
sich jedoch der Variablenwert während der Ausführung ändern. Des 
halb genügt es nicht, einfach den Variablenwert bei der Aus 
führung des Programms zu holen, weil sich dabei ja ein anderer 
als der Anfangswert ergeben kann. Eine Lösung wäre es, statt des 
sen eine Konstante zu definieren, die den Anfangswert der Varia 
bien darstellt. Sollte diese Notwendigkeit aber bei mehreren 
Variablen auftreten, so würde dadurch zuviel Speicherplatz ver 
schwendet werden. Mit den FORTH-Wörtern LITERAL, [ und ] kann man 
dieses Problem lösen. Eine Beispielanwendung dieser Wörter sehen 
Sie in Abbildung 9-2. Sehen wir uns einmal an, was hier ge 
schieht . In Zeile 1 definieren wir die Variable VAR. 


0 ( Beispielprogramm zu LITERAL ) 

1 VARIABLE VAR 5 VAR ! 

2 : SUMME [ VAR @ ] LITERAL 

3 : ERGEBNIS 7 * DUP VAR ! SUMM 

4 

5 

ABBILDUNG 9-2: Ein Beispielprogramm zu LITERAL, [ und ] 



Dann legen wir die Zahl 5 auf den Stack und speichern diesen Wert 

in VAR. In der nächsten Zeile sehen wir die Definition von SUMME, 

worin die FORTH-Wörter zum Holen des Variablenwerts in eckige 

Klammern eingeschlossen sind. Das Wort X sorgt dafür, daß an 

schließende Befehle ausgeführt und nicht compiliert werden, wenn 
der Block geladen wird. Die Ausführung geht so lange weiter, bis 
FORTH auf das Wort Ü stößt . Dahinter wird wieder normal mit der 
Compilierung weitergemacht. Das bedeutet, daß während der Compi 
lierung von SUMME der Wert 5, der in VAR gespeichert ist, auf der. 
Stack gelegt wird. Es folgt das Kommando LITERAL. Dieses sorgt 
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dafür, daß die einfach genaue Integer an oberster Stack-Position 
vom Stack entfernt und in die Compilierung von SUMME mit aufge 
nommen wird. Die gemeinsame Wirkung dieser Befehle ist also ge 
nauso, als hätten wir die Konstante 5 nach dem Wort SUMME in 
Zeile 2 geschrieben. Das selbstdefinierte SUMME entfernt also die 
oberste Zahl vom Stack und addiert den Wert 5 darauf. Das Ergeb 
nis dieser Addition wird dann auf den Stack gelegt. 

Betrachten Sie nun die Definition von ERGEBNIS in Zeile 3. Dieses 
Wort entfernt die oberste Zahl vom Stack, multipliziert sie mit 7 
und dupliziert das Ergebnis. Das Produkt wird daraufhin in VAR 
gespeichert. Das Wort ERGEBNIS hat also als Ergebnis diejenige 
Zahl, die sich ergibt, wenn man den obersten Stack-Eintrag mit 7 
multipliziert und darauf 5 addiert. 

Wie wir sehen konnten, entfernt LITERAL die oberste einfach 
genaue Integer vom Stack und sorgt dafür, daß sie in den Wörter 
bucheintrag des Wortes eingeht, das gerade compiliert wird. Die 
Stack-Relation lautet also 


(9-1 ) 


vorausgesetzt, die FORTH-Wörter [ und ] 
Wortdefinition eingesetzt. Während des 
Befehle, die zwischen eckigen Klammern 
nicht mit übersetzt. 


werden innerhalb einer 
Compiliervorgangs werden 
stehen, ausgeführt und 


9 . 2 Alternative Wörterbücher 


Wenn ein Wörtereintrag im Wörterbuch gespeichert wird, dann wird 
darin unter anderem die Adresse des nächsten Wörterbucheintrags 
mit vermerkt. Man spricht in diesem Fall von einem Kettuncrsfeld 
oder Zeiger . Jeder einzelne Wörterbucheintrag besteht seinerseits 
aus einer Folge von zusammenhängenden Speicherwörtern. Wenn das 
Wörterbuch durchsucht wird, dann beginnt man dabei von hinten, 
d.h., der letzte Wörterbucheintrag ist der erste, bei dem die 
Suche beginnt. Hat der letzte Wörterbucheintrag nicht den passen 
den Namen, dann geht man dem Zeiger im Verkettungsfeld nach und 
sucht mit dem vorletzten Eintrag weiter. Gelegentlich ist es 
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wünschenswert, in diesen Suchvorgang eine neue Ordnung einzufüh 
ren . Nehmen Sie etwa an, daß Sie ein Programm mit Ihrem Editor 
bearbeiten. Es wäre nun wünschenswert, daß FORTH zuerst nach den 
Editorkommandos sucht, da dadurch die Zeit für die Wörterbuchsu 
che verkürzt werden könnte. Bei anderen Anwendungen wäre es wie 
derum wünschenswert, andere Wortgruppen als erste durchsuchen zu 
lassen . 

Wir wollen deshalb einmal sehen, wie der Aufbau des Wörterbuches 
und die Reihenfolge, in der es durchsucht wird, beeinflußt werden 
kann. Alle Einträge im Wörterbuch sind miteinander über das 
Kettungsfeld verknüpft. Wir können jedoch Teilmengen von Wörtern 
zusammengruppieren. Man spricht in FORTH im Zusammenhang mit 
einer solchen Gruppe von einem Vokabular. Das Wörterbuch braucht 
nicht eine lineare Abfolge verketteter Wörter zu sein; es sind 
auch Verzweigungen in dieser Struktur möglich. Nehmen wir z.B. 
an, in unserem Wörterbuch gibt es drei solche Verzweigungen oder 
parallele Stränge. In jedem Strang zeigt das Kettungsfeld eines 
Wortes zurück auf den Vorgänger in diesem Strang. Es ist jedoch 
ohne weiteres möglich, daß zwei Wörter aus zwei unterschiedlichen 
Strängen auf einen gemeinsamen Vorgänger in dem dritten Strang 
verweisen. Die ersten beiden Stränge verweisen allerdings nicht 
aufeinander. Jeden solchen Strang in einem Wörterbuch kann man 
nun als Vokabular auf fassen. Das Hauptvokabular in der Program 
miersprache FORTH trägt sinnigerweise den Namen FORTH. Alle bis 
her geschriebenen Definitionen wurden in dieses Vokabular einge 
tragen. Wie wir aber bereits gesagt haben, ist es gelegentlich 
wünschenswert, separate Unterwörterbücher (Vokabular) einzurich 
ten. Wir wollen einmal sehen, wie dies erreicht werden kann. 

VOCABULARY - Mit dem FORTH-Wort VOCABULARY richtet man ein neues 
Teilwörterbuch (ein neues Vokabular) ein. Wenn wir beispielsweise 
ein Vokabular mit dem Namen HOUSE vereinbaren wollen, dann geben 
wir zuerst das Kommando: 


VOCABULARY HOUSE 


( 9 - 2 ) 


In einigen FORTH-Versionen ist es nötig, hinter HOUSE das Komman 
do IMMEDIATE zu schreiben. Bis jetzt ist HOUSE noch kein Teilvo 
kabular. Wenn wir jedoch das Wort HOUSE rufen, dann wird dieses 
zum neuen aktuellen Vokabular. Angenommen, das FORH-System durch 
sucht nun das Wörterbuch. Die Suche beginnt immer mit dem aktuel- 
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len Vokabular. Nur wenn darin das gesuchte Wort nicht enthalten 

ist, dann setzt das System die Suche mit dem FORTH-Vokabular 
fort. Wenn wir das Wort FORTH rufen, dann machen wir wieder die 
ses Vokabular zum aktuellen. Eine Wörterbuchsuche würde nun im 

FORTH-Wörterbuch beginnen. Findet sich jedoch nun das gesuchte 
Wort nicht, dann verzweigt die Suche in diesem Falle nicht zum 
Teilvokabular HOUSE . Indem wir die Definition von Teilwörterbü 
ehern sorgsam planen, können wir damit sehr bequem arbeiten. 

Natürlich kann man genausogut mit ausschließlich einem Wörterbuch 

arbeiten. Viele Verarbeitungsschritte werden jedoch beschleunigt, 
wenn man sich alternativer Wörterbücher bedient. 

CONTEXT, CURRENT und DEFINITIONS - Wir müssen unsere Ausführungen 
vom letzten Abschnitt dahingehend erweitern, daß ein Unterschied 
zwischen dem Wörterschatz besteht, der durchsucht und dem, an den 
neue Definitionen angefügt werden. Die Wörterbuchsuche findet im 
Kontextwörterbuch statt, während neue Definitionen ins aktuelle 
Wörterbuch aufgenommen werden. Wenn wir nun das FORTH-Wort DEFI 
NITIONS rufen, dann wird das Kontext-Wörterbuch auch zum aktuel 
len. Wenn wir z.B. nach Ausführung von (9-2) zusätzlich noch 
HOUSE und anschließend DEFINITIONS ausführen, dann werden alle 
neuen Definitionen auch in das Teilwörterbuch HOUSE compiliert . 
Nocheinmal: Neue Einträge werden im aktuellen Wörterbuch vorge 

nommen, während Wörterbuchsuchen grundsätzlich im Kontextwörter 
buch stattfinden. 

FORTH merkt sich in zwei speziellen Variablen, welches Wörterbuch 
nun das Kontext- und welches das aktuelle Wörterbuch ist; sie 
heißen CONTEXT und CURRENT. In CONTEXT finden wir die Adresse des 
Wörterbuchnamens, bei dem die Wörterbuchsuche beginnen soll, ähn 
lieh steht in CURRENT die Adresse des Wörterbuches, in das neue 
Definitionen eingetragen werden sollen. Sowohl CONTEXT als auch 
CURRENT haben als Stack-Relation 

-> a (9-3) 

Beachten Sie, daß man durch einen Aufruf von CONTEXT bzw. CURRENT 
die Adresse dieser Variablen und nicht etwa die der entsprechen 
den Wörterbücher auf den Stack bekommt. 

Wir wollen nun noch weitere Einzelheiten der Wörterbuchsuche be 
sprechen. Angenommen, wir arbeiten mit drei verschiedenen Wörter 
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büchern, die in der Reihenfolge vereinbart wurden: FORTH, HOUSE 

und BOOK. Falls BOOK das Kontextwörterbuch ist, dann bezieht eine 
Wörterbuchsuche alle drei Wörterbücher mit ein. Ist andererseits 
HOUSE das Kontextvokabular, dann wird BOOK bei der Suche übergan 
gen . 


1 - Wir müssen jetzt noch das FORTH-Wort 1 besprechen. Wird es 

ausgeführt, dann liegt die Adresse des nächsten Wortes im Einga 
bestrom auf dem Stack. Wenn wir z.B. folgende Wortfolge eingeben: 


' NUMB 


(9-4) 


dann erhalten wir als Ergebnis die Adresse von NUMB auf dem 
Stack. Dies setzt allerdings voraus, daß NUMB ein Name ist, der 
im Kontextwörterbuch bekannt ist. Sie können also überprüfen, ob 
das System einen bestimmten Namen momentan kennt, indem Sie ' und 
anschließend den gewünschten Namen eingeben. Erscheint die übli 
che Bereitschaftsmeldung Ihres Systems auf dem Bildschirm, dann 
bedeutet dies, daß der Name momentan bekannt ist. Sehen Sie statt 
dessen jedoch den Namen, gefolgt von einem Fragezeichen, dann 
heißt das, daß der fragliche Name durch eine Wörterbuchsuche 
nicht ausfindig gemacht werden kann. Ebenso kann man mit 1 die 
Adresse einer Konstante finden und dann den darin gespeicherten 
Wert modifizieren. 


9.3 Weitere FORTH-Ki ainimdos 


Die im Folgenden vorgestellten FORTH-Wörter befassen sich zum 
Teil mit Manipulationen des Arbeitsspeichers, zum Teil führen sie 
eine völlig neue Programmiertechnik ein. 

MYSELF - Oft ist es wünschenswert, wenn sich ein FORTH-Wort 
selbst aufrufen kann; man spricht in diesem Fall von einer rekur 
siven Definition. Dazu setzt man das Kommando MYSELF ein. Wir 
wollen dies an einem Beispiel erläutern. In Abbildung 9-3 sehen 
Sie ein FORTH-Wort, dem wir den Namen RECURSIVE gegeben haben und 
das folgendermaßen funktioniert: Es legt eine 3 auf den Stack und 
führt dann die Addition aus. Die Summe wird dupliziert und an 
schließend um 99 vermindert. Schließlich überprüfen wir, ob wir 
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0 

( Ein rekursives 

Programm 

) 



1 

: RECURSIVE 3 

+ DUP 

99 

- 

0> 

2 

IF 

QUIT 

THEN 


MYSELF 


3 

4 

ABBILDUNG 9-3: Ein rekursives Programmbeispiel 

einen Wert größer Null erhalten. Ist dies der Fall, dann wird der 
oberste Stack-Eintrag ausgegeben, und das Programm bricht ab. Ist 
die Zahl jedoch kleiner als 0, dann rufen wir das Wort MYSELF . 
Dies sorgt dafür, daß sich das Wort RECURSIVE selbst aufruft und 
den ganzen Vorgang wiederholt. Somit addiert unser Beispielpro 
gramm fortgesetzt 3 auf eine Zahl, bis die entstehende Summe den 
Wert 100 übersteigt. In diesem Fall bricht der Prozeß ab, und die 
Ergebnis zahl wird ausgegeben. 

Beim Einsatz von MYSELF sollten Sie Vorsicht walten lassen. Ach 
ten Sie darauf, daß sich ein Wort nicht ununterbrochen selbst 
aufruft . In diesem Fall hängt sich das System nämlich auf, und 
Sie müssen Ihren Rechner neu starten. Auch sollten Sie vorsichtig 
sein, damit nicht fortgesetzt Daten auf den Stack gelegt werden 
und dieser somit den gesamten zur Verfügung stehenden Speicher 
platz überschreibt. 

EXECUTE - Wenn wir das Wort EXECUTE aufrufen, dann sorgt dieses 
dafür, daß das Wort, dessen Adresse auf dem Stack zu finden ist, 
ausgeführt wird. 

EXIT - Wird EXIT innerhalb eines anderen Wortes gerufen, dann 
wird dessen Ausführung abgebrochen. Sie können EXIT jedoch nicht 
innerhalb von Schleifen verwenden. Befindet sich EXIT innerhalb 
eines Blockes und ist dort nicht Teil eines anderen Wortes, dann 
werden beim Laden dieses Blockes sowohl der Ubersetzungs- als 
auch der Ladevorgang abgebrochen, wenn FORTH auf das Wort EXIT 
stößt . 

FIND - Dieses Wort legt die Adresse des nächsten Wortes im Einga 
bestrom auf den Stack. Sollte es sich im Wörterbuch nicht ausfin 
dig machen lassen, dann schreibt es statt dessen eine 0 auf den 
Stack . 
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Gelegentlich ist es wünschenswert, einen zusammenhängenden Block 
von Speicherwörtern mit einem bestimmten konstanten Wert zu bele 
gen. Wir haben etwa in Abschnitt 8-2 erfahren, daß bei der Über 
tragung von Informationen auf Diskette eventuell überschüssige 
Bytes mit abgespeichert werden können. In diesem Fall wäre es 
wünschenswert, diese Überschußdaten zu löschen, so daß sich auf 
der Diskette keine sinnlosen Informationen befinden. Das Löschen 
könnte man z.B. dadurch erreichen, daß in den überschüssigen 
Speicherbereich an jede Adresse eine 0 geschrieben wird. Bei 
einigen Computern ist ein spezieller Bereich des Arbeitsspeichers 
für den Bildschirmspeicher reserviert . In diesem Fall ist der 
Computerbildschirm in einzelne Elemente unterteilt, von denen je 
des die Größe eines Buchstabens oder Sonderzeichens hat. Jede 
dieser Bildschirmkomponenten entspricht nun genau einer Adresse 
im Bildschirmspeicher. Welches Zeichen an einer bestimmten Stelle 
des Bildschirms erscheint, hängt davon ab, welcher ASCII-Code 
sich an der Adresse befindet, die dieser Bildschirmstelle ent 
spricht. Speicherworte, in denen der Bildschirminhalt abgebildet 
wird, sind stets zusammenhängend. Angenommen, wir wollen bei ei 
nem solchen Computersystem den Bildschirm löschen. Dazu müssen 
wir lediglich den ASCII-Code 32 für das Leerzeichen in jede 
Adresse des Bildschirmspeichers schreiben. Für die Erledigung 
solcher Aufgaben stellt FORTH mehrere Wörter zur Verfügung. Eines 
davon lautet FILL. Hier ein Anwendungsbeispiel: 


26000 1000 90 FILL (9-5) 

Bei Ausführung von (9-5) werden 1000 Speicherwörter, beginnend 
bei der Adresse 26000, mit dem Zeichen besetzt, das den ASCII- 
Code 90 (der Buchstabe Z) hat. Die Stack-Relation für FILL lautet 


(9-6) 


Um einen Teil des Arbeitsspeichers mit Leerzeichen zu füllen, 
müssen wir nur für n^ die Zahl 32 setzen. Es gibt jedoch noch ein 
anderes FORTH-Wort, das für diesen speziellen Zweck beguemer ist. 
Es lautet BLANK oder bei einigen Systemen BLANKS. Dieses Wort hat 
folgende Stack-Relation: 
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a n -> (9-7) 

Hierbei werden n aufeinanderfolgende Speicherwörter mit Leerzei 
chen gefüllt, wobei bei der Adresse a begonnen wird. 

ERASE - D ieses Wort funktioniert ähnlich wie BLANK, außer daß der 
Speicher nicht mit Leerzeichen, sondern mit binären Nullen be 
setzt wird. 


9 . 4 Übungsaufgaben 


Überprüfen Sie die Programme, die Sie in den folgenden Übungsauf 
gaben schreiben, indem Sie sie auf Ihrem Computer laufen lassen. 
Halten Sie einzelne Definitionen möglichst kurz, bedienen Sie 
sich des modularen Programmierstils. 


9-1 Erörtern Sie die Funktionsweise von IMMEDIATE . 

9-2 Legen Sie die Unterschiede zwischen [COMPILE] und COMPILE 
dar. Schreiben Sie dazu eigene FORTH-Wörter , die den Unter 
schied erhellen. 

9-3 Schreiben Sie ein Programm, das jedesmal dann automatisch 

ein Disketteninhaltsverzeichnis ausgibt, wenn der Disketten 
block mit dem Inhaltsverzeichnis geladen wird. 

9-4 Ändern Sie das Programm in Abbildung 7-2 so ab, daß bei 
seiner Übersetzung jedesmal ein Punkt ausgegeben wird, wenn 
eine Textzeile verarbeitet wird. 

9-5 Erörtern Sie die Einsatzmöglichkeiten für das FORTH-Wort 

LITERAL. 

9-6 Wiederholen Sie Aufgabe 9-5 mit den FORTH-Wörtern [ und ] . 

9-7 Schreiben Sie ein FORTH-Programm, das den Durchschnittswert 

eines Studenten in vier Tests ermittelt und das Ergebnis in 
einer Variablen speichert. Das Programm soll den Durch 
schnitt sowie eine Meldung ausgeben, ob der Student bestan 

den hat. Die Punktzahl zum Bestehen der Prüfung soll am An 


303 



9 Einige weitere FORTH-Operationen 


fang in derselben Variablen gespeichert werden, in der sich 
letztendlich der Durchschnitt befindet. 

9-8 Schreiben Sie ein rekursives FORTH-Programm, das die Summe 
von 20 aufeinanderfolgenden Zahlen berechnet, wobei es mit 
der Zahl beginnt, die sich an oberster Stack-Position befin 
det . 

9-9 Wiederholen Sie Aufgabe 9-8, wobei diesmal jedoch 20 aufein 
anderf olgende gerade Zahlen addiert werden sollen. 

9-10 Wiederholen Sie Aufgabe 9-8, wobei diesmal 20 aufeinander 

folgende ungerade Zahlen addiert werden sollen. 

9-11 Schreiben Sie unter Verwendung von MYSELF ein rekursives 

Programm zur Berechnung der Fakultät. 

9-12 Schreiben Si | ein rekursives Programm, das die Summe des 

Ausdrucks 1/n für n = 1, 2, 3, ... berechnet. Arbeiten Sie 

mit_Gleitkommazahlen . Das Programm sollte abbrechen, wenn 
l/n^kleiner als 0.00001 wird. 

9-13 Füllen Sie 1024 zusammenhängende Speicheradressen mit dem 
ASCII-Wert für X. 

9-14 Warum kann das Programm der letzten Aufgabe unter Umständen 

dazu führen, daß Sie Ihr System neu starten müssen? 

9-15 Schreiben Sie ein Programm, das einen Blockpuffer mit Leer 
Zeichen auffüllt. 
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Anhang: Glossar der FORTH-Wörter 


Dieses Glossar führt alle besprochenen FORTH-Wörter auf. Sie fin 
den darin den Abschnitt, in dem das entsprechende Wort besprochen 
wird, seine Stack-Relation und eine kurze Beschreibung der Funk 
tionsweise. Nicht alle im Glossar enthaltenen Wörter sind Be 
standteil von FORTH-79 Darüber hinausgehende Befehle sind in der 
Regel in MMSFORTH und anderen FORTH-Systemen zu finden. Genauere 
Informationen entnehmen Sie bitte den Abschnitten, in denen die 
einzelnen Wörter definiert werden. 


BESCHREIBUNG 


ABSCHN. STACKRELATION WORT 


Speichert eine Zahl in der Adres 
se an oberster Stack-Position 

Dient bei der Zahlenausgabe mit 
Maske für die Zifferndarstellung 
vorzeichenloser doppelt genauer 
Integers 

Beendet die maskierte Zahlenaus 
gäbe 

Fordert zur Eingabe einer einfach 
genauen Integer auf 

Wandelt bei der Zahlenausgabe mit 
Maske Ziffernzeichen in den AS- 
Cll-Code um 

Dient zum Speichern von Strings 

Vereinbart einen String im Ar 
beit s Speicher 

Entfernt nachlaufende Blanks vom 
String 

Druckt einen String 


6-2 n a — > 


3-3 


d]_ "> d2 


3-3 d — > a n 


3-1 — > n 


3-3 d -> 0 


7-3 a$ a — > 
7-3 -> a 


7-3 


7-3 a — > 


t 


#> 


#IN 


#S 


$ ! 

5 " 


$— TB 


$. 
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Vereinbart einen String-Array 

7-3 

nj n2 

— > 

$ARRAY 

Vergleicht Stringvariable 

7-3 

aj a2 

— > 

n $ COMP ARE 

Vereinbart eine Stringkonstante 

7-3 



$CONSTAMT 

Vereinbart eine Stringvariable 

7-3 



$VARIABLE 

Vertauscht die Werte in Stringva 
riablen 

7-3 

aj a2 

-> 

$XCG 

Liefert die Adresse des nächsten 
Wortes im Eingabestrom 

9-2 

a 


i 

Leitet einen Kommentar ein 

2-3 



( 

Liefert das Produkt zweier Zahlen 

2-1 

n| n 2 

-> 

•k 

Multipliziert n 1 mit n 2 und divi 
diert das doppelt genaue Produkt 
durch n A 

5-2 

"1 n 2 

n 3 

-> n */ 

Ähnlich wie */; liefert jedoch 

auch den Rest 

5-2 

n l n 2 

- > n 

n 3 

n 

rq 

*/MOD 

Liefert die Summe zweier Zahlen 

2-1 

"1 n 2 

-> 

n + 

Inkrementiert den gespeicherten 

Wert 

6-2 

na — 

> 

+ 1 

Inkrementiert eine Schleifenva 

riable 

4-3 

n — > 


+LOOP 

Compiliert n ins Wörterbuch 

6-3 

n -> 


- 

Subtrahiert n 2 von n 2 

2-1 

n| n 2 

-> 

- 

Aktualisiert den Zeichenzähler 

7-3 

a nj 

— > a 

"2 

-TRAILING 

Gibt eine Zahl aus 

1-4 

n — > 


• 

Gibt Text aus 

3-1 



1! 
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Gibt die Zahl n A im Datenfeld n 2 
aus 

3-3 

"1 

"2 

— > 

.R 

Dividiert A durch n 2 

2-1 

n l 

"2 

— > 

q/ 

Division mit Quotient und Rest 

2-1 

n i n 2 

— > 

r q /MOD 

"Wahr", falls n < 0 

4-1 

n -> 

f 

0< 

"Wahr", falls n = 0 

4-1 

n -> 

f 

0= 

"Wahr", falls n > 0 

4-1 

n -> 

f 

0> 

Inkrementiert den obersten Stack- 
Eintrag um Eins 

2-7 

n - > 

n l 

1 + 

Dekrementiert den obersten Stack 
eintrag um Eins 

2-7 

n -> 

n l 

1- 

Multipliziert den obersten Stack- 
Eintrag mit 16 

2-7 

n -> 

n l 

16* 

Speichert eine doppelt genaue 
Integer 

C\l 

1 

hO 

da — 

-> 

2! 

Definiert einen zweidimensionalen 
String-Array 

7-3 

n i n 2 

"3 

-> 2$£RRAY 

Multipliziert die oberste Integer 
mit 2 

2-7 

n -> 

n l 

2* 

Addiert 2 auf die oberste Integer 

2-7 

n -> 

n l 

2+ 

Subtrahiert 2 von der obersten 
Integer 

2-7 

n -> 

n i 

2- 

Dividiert die oberste Integer 
durch 2 

2-7 

n -> 

n i 

2 / 

Holt eine doppelt genaue Integer 

6-2 

a — > 

d 

2 § 

Definiert einen zweidimensionalen 
Array 

6-4 

n i n 2 

— > 

2/WAY 
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Definiert eine doppelt genaue 
Konstante 


6-1 d -> 


2CONSTANT 


Definiert einen doppelt genauen 
Integer-Array 


6-4 „ 2DARRAY 

n i n 2 


Entfernt die oberste doppelt ge 
naue Integer vom Stack 


2-5 d -> 


2 DROP 


Dupliziert die oberste doppelt 
genaue Integer auf den Stack 


2-5 d -> d d 


2DUP 


Dupliziert die zweite doppelt 
genaue Integer auf dem Stack an 
oberste Stack-Position 


2-5 d d OVER 

d 2 -i 


Rotiert die dritte doppelt genaue 
Integer an oberste Stack-Position 


2-5 d d a 2R0T 

" _> 2 °3 d l 


Vertauscht die obersten beiden 
doppelt genauen Integers 


2-5 


d i d 3 
~> \ d , 


2 SWAP 


Vereinbart eine doppelt genaue 
Variable 


6-2 


2VARIABLE 


Leitet die Definition eines 
FORTH-Wortes ein 


2-3 


Beendet die Definition eines 
FORTH-Wortes 


2-3 


Wird "wahr", falls n A < n 2 

Leitet die Zahleneingabe mit Mas 
ke ein 


4—1 n^n 2 — > 


3-3 


f < 
<# 


Wird "wahr", falls n A kleiner 
oder gleich n 2 ist 


4-1 , 0 — > f <= 

n l n 2 


Wird "wahr", falls n 2 ungleich n 2 
ist 


4-1 


n l n 2 


f o 


Dupliziert n Speicherwörter begin- 
nend bei a, an der Adresse a, '< 


7-1 -> <CMOVE 

a I a2 n _ 
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Übertragung beginnt bei der 

höchstwertigen Adresse 




Ist "wahr", falls gleich n 2 

-3 t 

4-1 

n l n 2 > 

f = 

Ist "wahr", falls n A größer oder 
gleich n 2 ist 

4-1 

"1 "2 > 

f >= 

Enthält die Startposition für die 
Untersuchung des Eingabestroms 

7-2 

— > a 

<IN 

Überträgt eine Integer auf den 
Kontroll-Stack; benötigt entspre 
chendes R> 

2-6 

n -> 

>R 

Dupliziert die oberste einfach 

genaue Integer, es sei denn, die 
se ist gleich 0 

4-5 

n — > n n 

?DUP 

Holt die an der Adresse gespei 
cherte einfach genaue Integer 

6-2 

a > n 

§ 

Ersetzt die oberste einfach ge 
naue Integer durch ihren Absolut 
betrag 

2-7 

n i n 2 _> 

ABS 

Erweitert den Speicherbereich 

einer Variablen um n Byte 

6-3 

n -> 

ALLOT 

Bitweises logisches AND 
Vereinbart einen Array 

5-5 

n i n 2 51 

n 3 AN ° 

ARRAY 

Legt den ASCII-Wert des ersten 
Zeichens in dem String, der bei a 
beginnt, auf den Stack 

6-3 

n -> 

ASC 

Enthält die Ein-/Ausgaberadix 

6-3 

a — > n 

BASE 

Leitet eine Schleife ein 

2-7 

— > a 

BEGIN 

Füllt Speicherbereiche mit Leer 
Zeichen 
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Enthält die Adresse des Blockpuf 
fers für den Einga Jbestrom 

Überträgt den Block n von der 
Diskette in den Arbeitsspeicher 
und legt dessen Startadresse auf 
den Stack 

Wie BLOCK, die Daten werden je 
doch nicht übertragen 

Speichert das niedrigstwertige 
Byte einer einfach genauen Inte 
ger 

Holt ein Byte und speichert es 
als einfach genaue Integer 

Beendet eine CASE-Anweisung 

Wandelt eine ein Byte lange Inte 
ger in ihre ASCII-Darstellung um; 
das Ergebnis steht im temporären 
Arbeitsbereich, dessen Adresse 
auf den Stack gelegt wird 

Überträgt n Bytes von Adresse 1 
nach Adresse 2; die Übertragung 
beginnt bei den niedrigwertigen 
Adressen 

Nimmt einen Wert in die Wortdefi 
nition mit auf 


7-2 -> a 


8-1 n — > a 


8-1 n — > a 


7-1 na — > 


7-1 a — > n 


4-6 


7-3 c — > a 


7-1 a-L a 2 n — > 


9-1 


Vereinbart eine Konstante mit dem 6-1 n — > 

Wert n 


Enthält die Adresse des Kontext- 9-2 > a 

Vokabulars 

Legt die Anfangsadresse des 8-2 a — > a A n 

Strings und den Stringzähler auf 
den Stack 


BLK 

BLOCK 

BUFFER 

C! 

0? 

GASEND 

CHR$ 

CMOVE 

COMP ILE 
CONSTANT 
CONTEXT 

COUNT 
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Sendet einen Zeilenvorschub 


3-1 


Richtet einen Wörterbucheintrag 6-3 

ein 

Lenkt die Ausgabe auf den 3-1 

Bildschirm 


Enthält die Adresse des aktuellen 9-2 — > a 

Wörterbuches 


Fordert zur Eingabe einer doppelt 5-1 — > d 

genauen Integer auf 

Multipliziert doppelt genaue In 5-1 ^ jL 

tegers 


Multipliziert d A mit d 2 und divi 
diert das vierfach genaue Produkt 
anschließend durch d A 


h-_o 
a 3 


di d2 d3 


Wie D*/; liefert aber auch den 
Rest 


5-2 


Vi 


d ä 


r q 


Addiert zwei doppelt genaue Zah 5-1 d 2 d 2 ~> d 

len 


Subtrahiert zwei doppelt genaue 5-1 ^ d 

Zahlen (d A minus d 2 ) 


Liefert den Quotienten von d A und 5-1 dp ^2 > ^ 

d2 


Wie D/, liefert aber auch noch 
den Rest 


5-1 



Gibt eine doppelt genaue Integer 5-1 d — > 

aus 


Gibt eine doppelt genaue Integer 5-1 d n — > 

in einem n Zeichen langen Daten 
feld aus 


■Wörter 

CR 

CREATE 

CRT 

CURRENT 

Df IN 

D* 

D*/ 

1 

D*/MOD 

D+ 

D- 

D/ 

D/MOD 

D. 

D.R 
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Anhang: Glossar der FORTH-Wörter 


Ist "wahr", wenn der doppelt 

genaue Wert gleich 0 ist 

5-1 

d - > f 

D0= 

Ist "wahr", wenn d.j kleiner d 2 
ist 

5-1 

d l d 2 -> f 

D< 

Liefert den Absolutwert einer 

doppelt genauen Integer 

5-1 

d l d 2 -> 

DABS 

Vereinbart einen Array mit dop 
pelt genauen Integers 

Setzt die Zahlenbasis auf 10 

6-3 

2-7 

n -> 

DARRAY 

DECIMAL 

Macht den Kontext-Wortschatz zum 
aktuellen Wortschatz 

9-2 

DEFINITIONS 

Liefert die Stack-Tiefe in Ein 
heiten von einfach genauen Inte 
gers 

2-2 

— > n 

DEPTH 

Liefert die größere von zwei 

doppelt genauen Integers 

5-1 

d l d 2 -> d 

DMAX 

Liefert die kleinere von zwei 
doppelt genauen Integers 

5-1 

d l d 2 d > 

DMIN 

Dreht das Vorzeichen einer dop 
pelt genauen Integer um 

5-1 

d > -d 

DNEGATE 

Leitet eine Schleife ein 

4-3 

n i n 2 > 

DO 

Liest Diskettensektoren 

8-2 

3 n i n 2 n 3 
n 4 -> nf 

DRDSECS 

Entfernt die oberste einfach ge 
naue Integer vom Stack 

2-2 

n -> 

DROP 

Dupliziert die oberste einfach 

genaue Integer 

2-2 

n > n n 

DUP 

Schreibt Diskettensektoren 

8-2 

a n 2 n 2 n 3 

DWTSECS 


n 4 -> nf 
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Anhang: Glossar der FORTH-Wörter 


Bearbeitet den Block, der vom In 
halt von SCR bestimmt wird 

Bearbeitet Block n; n wird in SCR 
gespeichert 

Für Programmverzweigungen 

Gibt ein Zeichen aus 

Markiert alle Puffer als leer 

Setzt n aufeinanderfolgende Byte 
auf den Wert 0, beginnend mit der 
Adresse a 

Führt den Wörterbucheintrag aus, 
dessen Adresse auf dem Stack 
liegt 

Beendet die Programmbearbeitung 

Liest Zeichen in den Arbeitsspei 
eher ein, beginnend bei Adresse 
a, wobei maximal n Zeichen oder 
bis zum ersten Return gelesen 
wird 

Belegt n aufeinanderfolgende 
Speicherwörter (beginnend bei 
Adresse a) mit dem ASCII-Wert n 

c 

Sucht die Adresse des nächsten 
Wortes im Eingabestrom 

Speichert die markierten Puffer 
auf Diskette 

Löscht alle Wörter bis ein 
schließlich dem angegebenen aus 
dem Wörterbuch 

Name des Hauptwörterbuches 


8-1 

4-2 n -> 

4-2 

7- 1 c -> 

8- 1 EMPTY 

9- 3 a n — > 

9-3 a -> 


9-3 

7-2 a n — > 


9-3 a n n — > 
c 

9-3 -> a 

8-1 

2-4 


9-2 


E 

EDIT 

ELSE 

EMIT 

-BUFFERS 

ERASE 

EXECUTE 

EXIT 

EXPECT 

FILL 

FIND 

FLUSH 

FORGET 

FORTH 


315 



Anhang: Glossar der FORTH-Wörter 


Liefert die Adresse des nächsten 
verfügbaren Wörterbuchbytes 

7-2 

— > a 

HERE 

Umwandlung der Zahlenausgabe in 
Hexadezimaldarstellung 

2-7 


HEX 

Zur Einfügung von Zeichen bei der 
Zahlenausgabe mit Maske 

3-3 

c — > 

HOLD 

Legt den Schleifenindex auf den 
Stack 

4-3 

— > n 

I 

Legt den Testwert der Schleife 
auf den Stack 

4-3 

— > n 

I' 

Für Programmverzweigungen 

4-2 

f -> 

IF 

Schaltet von Compilierung in Aus 
führung um 

9-1 

n i n 2 > 

IMMEDIATE 

Gibt die erste Zeile von n 
Blockes aus, beginnend mit Block 

"l 

9-1 

— > 

n l n 2 

INDEX 

Liefert den Index der dynamisch 
übernächsten Schleife auf den 
Stack 

4-3 

-> n 

J 

Legt den ASCII-Code des nächsten 
Eingabezeichens auf den Stack 

7-1 

-> n 

KEY 

Gibt den Block aus, dessen Nummer 
in SCR gespeichert ist 

CO 

1 

I - 1 


L 

Beendet eine Schleife 

4-3 


LEAVE 

Überträgt die n ersten Zeichen 
des Strings, der bei a beginnt, 
in den temporären Arbeitsbereich 

7-3 

a n — > a A 

LEFTS 

Legt die Länge eines Strings auf 

7-3 

a — > n 

LEN 


den Stack 
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Anhang: Glossar der FORTH-Wörter 


Gibt den Block n aus und legt n 
in SCR ab 

2-3 

n — > 

LIST 

Niimit den Stack-Wert, ohne ihn zu 
interpretieren, in die Compila 
tion mit auf 

9-1 

n -> 

LITERAL 

Lädt den Block n 

2-3 

n -> 

LOAD 

Lädt n 2 Block, beginnend mit n 2 

8-1 

n l n 2 -> 

LOADS 

Inkrementiert den Schleifenindex 

4-3 


LOOP 

Doppelt genaues Produkt zweier 
einfach genauer Integers 

5-3 

mi2 A — > d 

M* 

Multipliziert d 1 mitr^und spei 
chert das Produkt als dreifach 
genaue Integer, welche dann durch 
n A dividiert wird; der Quotient 
ist doppelt genau 

5-3 

d 2 n ,ti 3 

-> a 2 

M*/ 

Gemischte Addition 

5-3 

d. I n — > d 2 

M+ 

Gemischte Subtraktion 

5-3 

d 2 n -> d 2 

M- 

Gemischte Division 

5-3 

d m -> n 2 

M/ 

Wie M/, außer daß sowohl Quotient 
als auch Rest geliefert werden 

5-3 

n l 

d n 
r q 

M/MOD 

Liefert den größeren von zwei 
Werten 

2-7 

n l n 2 " > n 

MAX 

Überträgt an die Adresse a A einen 
n A Zeichen langen Teilstring, der 
ab der n A ten Zeichenposition des 
Strings a beginnt 

7-3 

an -i n 
1 2 
-> a. 

MID$ 

Liefert den kleineren von zwei 
Werten 

2-7 

n 2 — > n 

MIN 

Liefert den Rest der Division von 

2-1 

n o 

MOD 


n i/n 2 
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Anhang: Glossar der FORTH-Wörter 


Verschiebt n 16 Byte lange Spei 
cherwörter, beginnend bei a A , 
nach n A 

Erlaubt rekursive Aufrufe 

Leitet eine CASE-Anweisung ein 

Ersetzt eine Zahl durch die nega 
tive Zahl mit dem gleichen Betrag 

Negiert ein Flag 

Setzt die Ein-/Ausgabebasis für 
Zahlen auf das Oktalsystem 

Allgemeiner Ausgang in CASE-An- 
weisungen 

Dupliziert die zweite Zahl an 
oberste Stack-Position 


Enthält die Anfangsadresse des 
temporären Arbeitsbereichs 

Löscht den Bildschirm 


Legt die Ausgabe sowohl auf 
Bildschirm als auch auf Drucker 


Legt die Ausgabe nur auf den 
Drucker 


Für Zeicheneingabe 

Löscht den Return-Stack 

Überträgt die oberste einfach 
genaue Integer vom Return-Stack 
auf den Parameter-Stack 


Dupliziert die oberste einfach 
genaue Integer vom Return-Stack 
auf den Parameter-Stack 


7-1 


a l 


a 2 n - 


9-3 

4-6 n -> 

2-7 n — > -n 

4-5 f . — > f. 
2-7 

4-6 

2-2 

n i n 2 -> 
n i n 2 n i 

7-3 - > a 


3-1 

3-1 

3-1 


7-2 

3-1 

2-6 — > n 


o 6 


> n 


-> MOVE 

MYSELF 

NCASE 

NEGATE 

NOT 

OCTAL 

OTHERWISE 

OVER 

PAD 

PAGE 

PCRT 

PRINT 

QUERY 

QUIT 

R> 

R § 
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Anhang: Glossar der FORTH-Wörter 


Initialisiert den Zufallszahlen 
generator 

Für die Programmierung von Schlei 
f en 

überträgt die n letzten Zeichen 
des Strings a in den temporären 
Arbeitsbereich, liefert dessen 
Adresse 

Erzeugt eine Zufallszahl und 
speichert sie in SEED 

Erzeugt eine Zufallszahl zwischen 
' und n A 

Legt die n-te einfach genaue 
Integer auf dem Stack an oberste 
Stack-Position 

Befördert die dritte einfach ge 
naue Integer an oberste Stack- 
Position 

Markiert alle Puffer für nachfol 
gende Sicherungen 

Enthält die Adresse des zuletzt 
bearbeiteten Blockpuffers 

Fügt den ASCII-Code des Minuszei 
chens bei Zahlenausgabe mit Maske 
ein, falls n negativ ist 

Gibt ein Leerzeichen aus 

Vertauscht die beiden obersten 
Stack-Einträge 

Bei Programmverzweigungen benö 
tigt 


2-7 


RANDOMI ZE 


4-4 


REPEAT 


7-3 an -> B1 RIGHTS 


2-7 


RN1 


2-7 


n i --> "2 


RND 


2-2 n - > 


ROLL 


2-2 "1 n i 2 n 3 

> 

n 2 n 3 n l 


ROT 


SAVE-BUFFERS 


3-1 -> a 


SCR 


3-3 n - > 


SIGN 


3-1 

2-2 n A n , 
— > 


n 2 n l 


4-2 


SPACE 

SNAP 

THEN 
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Anhang: Glossar der FORTH-Wörter 


Gibt n Zeichen beginnend ab der 3-3 a n — > 

Adresse a aus 


Vor zeichenlose Integermultiplika- 
tion 

Gibt eine vorzeichenlose Integer 
aus 

Gibt eine vorzeichenlose Integer 
in einem n Stellen breiten Daten 
feld aus 

Vorzeichenlose Division mit dop 
pelt genauem Dividenden, liefert 
Quotienten und Rest 

"Wahr", falls u kdeiner u 2 ist 
(vorzeichenlose Integers) 

Für die Programmierung von Schlei 
fen 


5-4 b 0 £ _h> 

5-4 u > 


5-4 u n -> 


5-4 


ü d U 1 
— > u u 

r q 


5-4 


ui u 2 


— > 


4-4 f -> 


Markiert alle Blockpuffer als 8-1 

gesichert 

Wandelt die ASCII-Darstellung 7-3 a — > n 

einer Integer in Binärform um 

Definiert eine Variable 6-2 

Für die Vereinbarung eines neuen 9-2 

Wortschatzes 


Für die Programmierung von 4-4 f — > 

Schleifen 


Liest Zeichen aus dem Eingabe 
ström; Trenner ist Zeichen mit 
ASCII-Code n 


Bitweises exklusives ODER 


7-2 n — > a 


5-5 oo- 0 
I S 


TYPE 

u U* 

U. 

U.R 

U/MOI 

u< 

UNTIL 

UPDATE 

VAL 

VARIAEL*: 
VOCABULAF : 

WEILE 

WORE 

n XCS 
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Anhang: Glossar der FORTH-Wörter 


Fragt nach Y oder N; N liefert 
Wahrheitswert "wahr" 

4-5 -> f 

Y/N 

Beendet Compilierung und leitet 
Ausführung ein; wird in Wortdefi 
nitionen benötigt 

9-1 

[ 

Bewirkt, daß ein Wort mit dem 
Status IMMEDIATE compiliert wird 

9-1 

[COMPILE] 

Beendet Ausführung und fahrt mit 
der Compilierung fort 

9-1 

] 
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Stichwortverzeichnis 


. 97 

.R 106 

-i 21 1 
p 211 
il 97 

H H 22 
# 11 0 
#> 109 

# IN 98 

#S 111 
$ ! 257 

$" 258 

$ + 258 

$— TB 266 
$. 257 

$ARRAY 255 
$ COMP ARE 2' 
$CONSTANT 
$VARIABLE 


$XCG 

260 

1 

300 

( 

62 

) 

62 

k 

40 

*/ 

173 

* /MOD 1 7: 

+ > 

22 35 

+LOOP 137 

- 

37 

— TRAILING 

/ 

42 

/LOOP 183 

/MOD 

43 

0< 

1 23 

0= 

122 

o> 

123 

l + 

84 

l 

84 

l/X 

193 

10 A 

193 

1 6* 

85 


51 

254 

255 


265 
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Stichwortverzeichnis 


2 ! 216 

2 $ARRAY 2 56 

2* 85 
2- 85 
2/ 85 

22ARRAY 233 
24ARRAY 233 
2ARRAY 226, 
2C0NSTANT 209 
2DARRAY 232 
2 DROP 74 
2DUP 74 
2 § 216 
2 OVER 7 7 

2 ROT 7 6 
2 SWAP 7 5 
2VARIABLE 215 
4ARRAY 226 
4CONSTANT 210 
4 DROP 1 96 
4DUP 196 
4 ROLL 196 
4 SWAP 196 



59 


59 

< 

1 24 

<# 

109 

<= 

126 

<> 

126 

<CMOVE 240 

= 

1 24 

> 

1 25 

> = 

1 26 

>IN 

250 


>R 78, 134 
?DUF» 150 
[ 296 

[COMPILE] 294 
] 296 


231 


» 253 , 


286 
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Stichwortverzeichnis 


A 

ABORT 150 
ABORT" 150 
ABS 87 

Absolutwert 87 
Addition 25, 35 

doppelt genau 164 
Adresse 211 

Aktualisierung 26, 275 
Aktuelles Wörterbuch 299 
Algorithmus 155 
ALLOT 218 

Alphanumerische Daten 239 
AND 184 

Anfangswert 136 
Arbeitsspeicher 20 
Arithmetiküberlauf 173 
Array 207, 217, 219, 222 

Dimension 229 
Element 220 
mehrdimensionaler 227 
ASC 266 

ASCII-Code 103, 266 

Assembler 13 
ATAN 193 
ATN2 194 

Ausgabe, doppelt genau 164, 165 

Ausgabemaske 107 
Ausrichtung, rechtsbündig 106 


B 

BASE 90 
BASIC 15 

Bedingung, logische 121 

Befehl 22 

BEGIN 146, 147 

Bereitschaftsmeldung, Unterdrückung 98 
Betriebssystem 27, 273 

Bibliothek 16 
Bildschirm 12 
löschen 98 
Bildschirmeditor 25 
Bildschirmseite 25 
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Stichwortverzeichnis 


Bildschirmspeicher 301 
Binden 16 

Binärdarstellung 180, 183 

Binärzahl 13, 183 

Bit 183 

höchstwertiges 107 
niedrigstwertiges 107 
BLANK 302 
BLANKS 302 

BLK 250, 251, 253, 286 

Block 26, 273, 281 

compilieren 277 
laden 28 
verschieben 241 
Blockpuffer, aktualisieren 
Blockpuffer 273 
Bogenmaß 193 
BUFFER 282 
Bug 2 9 

Byte 73, 217, 239 


C 

C! 239 
CHR$ 267 
CINT 192 
C@ 239 
CMOVE 240 
Code 103 
COMPILE 294 
Compiler 16, 293 

Steuerung 293 
Compilieren 
Block 277 
Definition 60 
CONJ 201 
CONSTANT 208 
CONTEXT 299 
COS 193 
COUNT 286 
CP% 199 
CP* 200 
CP+ 200 
CP- 200 


274 
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Stichwortverzeichnis 


CP. 199 
CP/ 200 
CPMINUS 201 
CPU 1 1 
CR 98 

CREATE 226 
CRT 102 
CURRENT 299 
Cursor 27, 101 

direkte Adressierung 101 


D 

D# IN 170 

D* 166 

D*/ 174 

D* /MOD 174 

D+ 164 

D- 166 

D. 165 

D.R 170 

D/ 166 

D/MOD 166 

D< 168 

D= 168 

DABS 169 

DARRAY 225 

Daten-Stack 77 

Datenausgabe 25 

Datenblock 273 

Datenfeld 106 

Datenspalte 229 

Datenzeile 229 

Debugging 29 

DECIMAL 90 

Definition 

compilieren 60 
Doppelpunkt 59 
Strichpunkt 59 
Wort 59 

DEFINITIONS 299 
DEGREES 193, 200 

Dekrementieren 84 
DEPTH 57 
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Stichwortverzeichnis 


Dezimalkomma 39 

Dezimalpunkt 39 

Dezimalsystem 89, 90 

DF#IN 195 

DF. 197 

DF.R 197 

DFABS 199 

DFCOMP 199 

DFMINUS 199 

DF SIGN 199 

Diskette 12 

beschreiben 283 
Inhaltsverzeichnis 27, 
Lesefehler 283 
lesen 283 
Schreibfehler 283 
Division 

doppelt genau 166 
mit Rest 43 
ohne Rest 42 
DMAX 169 
DMIN 169 
DNEGATE 169 
DO 134, 183 

Doppelt genaue Integer 73 
DRDSECS 283 
DROP 49 
Druckausgabe 

eines Blockes 276 
Drucker 12 

Ausgabe 102 
Ausgabe beenden 102 
DUP 4 8 
Duplizieren 

bedingt 150 
DWTSECS 283 


E 

E 277 
EDIT 275 

Editieren 26, 27 

Editor 25 


273 
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Stichwortverzeichnis 


Eingabe 

doppelt genau 164 
Eingabeecho 243 
Eingabestrom 253 
ELSE 129 
EMIT 243 

EMPTY-BUFFERS 276 
Endlosschleife 145 
ERASE 303 

Erweiterbarkeit 18 
Erweiterungswort 60 
Escape 105 
Escape-Sequenz 105 
EXECUTE 301 
EXIT 301 
EXP 193 
EXPECT 249 
Exponent 186 


F 

F#IN 187 
F* 188 
F+ 188 
F- 188 
F. 188 
F.R 188 
F/ 188 
FABS 190 
Fakultät 135 
FCOMP 191 
FDF 198 
Fehler 

syntaktischer 29 

Syntax 30 
Fehlersuche 29 
Festplatte 12 
FILL 301 
FIND 301 
FIX 192 
Flag 121 
Floppy Disk 12 
FLUSH 27, 275 

FMINUS 190 
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Stichwortverzeichnis 


FORGET 67, 72, 215 

Formatierung 
Zahlen 106 
FORTH 298 

Funktionen, trigonometrische 193 


G 

Gemischter Modus 177 

Genauigkeit, von Berechnungen 1 72 
Gleitkommaarithmetik 186 
Gleitkommazahl 186 
Ausgabe 188 
Eingabe 187 


fi 

Hardcopy 12 
Harddisk 12 
Hauptspeicher 11 
HERE 250, 251 

HEX 90 

Hexadezimales Zahlensystem 89 
Hexadezimalsystem 90 
HOLD 111 


I 

I 81, 135, 140 

I' 81, 135, 140 

I— F 192 
IF-THEN 127 
Imaginärteil 199 
IMMEDIATE 293, 294 

IN$ 259 

Index 219, 278 

Infix-Notation 23 
Inhaltsverzeichnis 278 
Diskette 27 
Inkrement 

negatives 139 
Inkrementieren 84, 135 

INSTR 260 
INT 192 
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Stichwortverzeichnis 


Integer 25, 39, 41 

doppelt genau 73 
vorzeichenlose 180 
Interndarstellung 103 
Interpreter 17 


J 

J 82, 140 

K_ 

Kassettenspeicher 12 
Kehrwert 193 
Kettungsfeld 297 
KEY 242 

Kommentar 15, 62 

Komplexe Zahl 

Arithmetik 200 
Ausgabe 199 
Eingabe 199 
Konkatenation 258 
Konstante 208 
Kontextwörterbuch 299 

Kontgrollstruktur , verschachtelte 131 


L_ 

L 276 

Laufwerksnummer 283 
LEAVE 139, 144 

Leerzeichen 19, 63 

Ausgabe von 100 
nachlaufende 265 
Leerzeile 63 
LEFT $ 259 
LEN 266 
Library 16 
LIFO-Prinzip 22 
LIFO-Speicher 22 
Linker 16 
LIST 61, 276 

LITERAL 296 
LOAD 28, 29, 277 
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St ichwortverzeichn-i 


LOADS 277 

LOG 193 

LOGIO 1 93 

Logarithmus 193 

Logischer Fehler 30 

LOOP 134 

LSB 107 


M 

M* 177 

M*/ 179 

M+ 17 8 

M- 178 

M/ 178 

M/MOD 178 

MAG 200 

Magnetband 12 

Magnetblasenspeicher 12 

Mantisse 186 

Maschinensprache 13 

Maschinenwort 73 

MAX 8 6 

Maximum 86 

MID$ 259 

MIN 86 

Minimum 86 

Minuszeichen 38 

MOD 42 

Modul 16, 154 

MO VE 242 
MSB 107 

Multiplikation 25, 40 

doppelt genau 166 
MYSELF 300 


N 

NCASE 152 
NEGATE 86 
Neuseite 98 
Neuzeile 98 
NOT 152 
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Stichwortverzeichnis 


Notation 

Infix 23 
Postfix 23 


£ 

OCTAL 90 

Oktales Zahlensystem 89 
Oktalsystem 90 
Operator, logischer 183 
OR 185 
OVER 51 

Overlay-Technik 69 


P 

P-R 200 
PAD 257 
PAGE 98 

Parameter-Stack 77 
PORT 102, 276 

PHASE 200 
PICK 53 

Polnische Notation, umgekehrte 23 
Postf ix-Notation 23 
Potenz 193 
Potenzierung 194 
PRINT 102 
Programm 11 
Programmabbruch 150 
Programmbibliothek 16 
Programmfehler 29 
Programmieren 11 
Programmiersprache, höhere 14 
Programmlisting 61 
Programmrumpf 156 
Programmschleife 134 
Geltungsbereich 141 
Index 135 
Inkrement 137 
Testwert 135 
verlassen 139, 144 

Programmzweig 127 
Pseudozufallszahl 87, 193 
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Stichwortverzeichnis 


?TC 101 

^ Uff er 26, 246 

Fufferblock, aktueller 275 
Runktbefehl 25 


Q 

Quadratwurzel 193 
QUERY 253 
QUIT 98, 128 


R 

R-P 200 
R< > 81 

R> 79, 134 

RADI ANS 193, 200 

RANDOMI ZE 89 
Realteil 199 
Rechtsbündig 106 
Rekursion 300 
REPEAT 147 
Return-Stack 77 
RETURN-Taste 19 
RIGHT$ 259 
RN1 88 

RND 88, 193 

ROLL 55 
ROT 54 

Rundungsfehler 172, 195 


_S 

SAVE-BUFFERS 27, 275 

Schleife 

bedingte 145 
unbedingte 145 
Schleifenindex 135 
Schreibmarke 27, 101 

SCR 275, 276 

Scratch pad 257 
SEED 88 

Seitenvorschub 98 
Sektor 279, 283 
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SGN 191 
SIGN 113 
SIN 193 
Skalieren 174 
Skalierungsfaktor 174 
Sortierfolge 261 
Sortierwert 261 
SPACE 100 

Speicher, virtueller 69 
Speicherwort 217 
Spur 279, 283 

SQR 193 
Stack 20 
Daten 77 
Parameter 77 
Überlauf 50 
Stack-Operationen 22 
Stack-Relation 36 
Stackdiagramm 24 
Stackeintrag 

auswählen 53, 55 

dritter 54 
duplizieren 51 
Stackelement 

duplizieren 48 
entfernen 50 
vertauschen 51 
Stacktiefe 57 
Standardeingabe 251 
Stapel 20 
Stapelspeicher 21 
Steuerzeichen 105 
String 239 

ausgeben 113 
Länge 266 
Verkettung 258 
Stringarray 255 
Stringkonstante 254 
Stringvariable 255 
Subtraktion 37 

doppelt genau 166 
SWAP 51 
Syntax 29 
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Stichwortverzei 


T 

TAN 193 
Tastatur 12 
Teilstring 260 
Terminal 12 
Testdaten 30 
Testwert 135, 136 

Textausgabe 97 
Trenner 63 

Trennzeichen 19, 250 

TYPE 113, 248, 286 


U_ 

U* 182 
U. 180 
U.R 181 
U/MOD 182 
U< 183 

Umgekehrte Polnische Notation 23 

Umwandlung, String in Zahl 267 

Unterprogramm 31 

UNTIL 146 

UPDATE 274 

Urlader 279 

Ursprungszahl 88 


V 

VAL 267 
Variable 211 

Anfangswert 296 
Vergleich 121 

auf Gleichheit 124 
größer 125 
größer Null 123 
größer/gleich 126 
kleiner 124 
kleiner Null 123 
kleiner/gleich 126 
mit Null 122 
Ungleichheit 126 
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Stichwortverzeichnis 


Verzweigung 

Auswahl 152 
bedingte 127 
Virtueller Speicher 69 
VOCABULARY 298 
Vokabular 298 
Vorzeichen 

vertauschen 86 
Vorzeichenbit 108, 1 


W 

Wagenrücklauf 98 
WHILE 147 
Winkelgrad 193 
WORD 286 
WORDS 250 
Wort 22 

aufrufen 61 
Definition 59 
Wörterbuch 65 

aktuelles 299 
doppelter Eintrag 67 
Eintrag 65, 214 

Kontext 299 
Suche 65 
Variable 214 


X 

XOR 185 
X A Y 194 


Y 

Y/N 151 


Z_ 

Zahl 

ganze 39 
komplexe 199 
negative 38, 108 

Typumwandlung 200 



Stichwortverzeichnis 


Zahlenbasis 90 
Zahleneingabe 98 
Zahlensystem 

hexadezimales 89 
oktales 89 

Zahlenumwandlung 192 
Zeichen 

alphanumerisches 239 
Bildschirmausgabe 243 
Tastatureingabe 243 
Zeichenketten 239 
Zeichenstring 110 
Zeiger 297 
Zeilennummer 61 
Zeilenvorschub 98 
Zentraleinheit 11 
Zufallszahl 87, 193 


337 





FORTH — die Sprache für alle, 
die mehr aus ihrem Computer 
herausholen wollen! 

Wer einen Computer hat, braucht 
nur noch dieses Buch, um in kur- 
zer Zeit eigene Programme in die- 
ser vielseitigen Sprache schrei- 
ben zu können. Dafür sorgt die 
gründliche und methodische 
Methode des Autors, der an einer 


Vielzahl genau erläuterter Bei- 
spiele alles Wichtige erklärt. Der 
Leser findet jedoch nicht nur eine 
Einführung in das Programmieren 
mit FORTH; viele andere wichtige 
Themen werden erörtert, unter 
anderem 

• Vergleich von FORTH mit 
anderen Sprachen 

• Editieren von Programmen 
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• Fehlersuche und -korrektur 

• Diskettenoperationen 

• Zahlentypen 

• Grundlagen des strukturier 
ten Programmierens 

• Der FORTH-Standard 
FORTH- 79 und 
Erweiterungen 

• Ausführliches Glossar 
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